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REM € 


IDENTIFICATION 


CODE:  AC-T708B-MC 


PRODUCT NAME: CZKDLBO KDJ11 FLOATING POINT DIAGNOSTIC 


PRODUCT DATE; 15-MAR -84 
MAINTAINER: OIAGNOSTIC ENGINEERING 
AUTHORS : HENRY ENMAN, JIM PITTMAN, BARRY IRRGANG 


THE INFORMATION IN THIS DOCUMENT IS ewe: TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT By DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 


COPYRIGHT (C) 1983, 1984 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL POP UNIBUS MASSBUS 
DEC DECUS DEC TAPE 


SEQ 9001 


VSER JOCUMENTATION 


KOIJLLA.MAC 


1 


-MAR -84 1 


OCT-83 REV. A 


FEB -84 


REV. B 


Ci 
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-REM € 
BESTORY 


FIRST RELEASE 
reg ory MADE TO: 
CORRECT VECTOR AREA MAINTENANCE PROBLEM 


Why 


ENSURE THAT CPU ERROR REGISTER IS CLEARED MF 
COMPLETION OF TEST THAT MIGHT CAUSE IT TO BE SE 
SAVE PC AND CONTENTS OF R6 ON UNEXPECTED INTERRUPTS 


é 


S 


TURN CACHE MEMORY SYSTEM OFF DURING NON-CACHE TESTS. 


SEQ 9002 


D1 
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Se -REM € 
: 

55 
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66 

67 2.0 OPERATING INSTRUCTIONS 

68 

69 3.0 ERROR INFORMATION 
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-REM € 

1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 
THIS IS AN APT COMPATIBLE VERSION OF THE KDJ11 FLOATING POINT 
INSTRUCTION TESTS. IT FOCUSES ON TESTING THE KDJ11 FLOATING POINT 
INSTRUCTION FUNCTIONALITY. 
1.2 SYSTEM REQUIREMENTS 
KDJ11-A PROCESSOR MODULE 
omg THAT HALT TRAP OPTION IS DISABLED ( JUMPER wW9 INSTALLED) 


W MEMORY 
Q-22 BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAGE) 
SERTAL LINE UNIT AND CONSOLE TERMINAL (CONSOLE TERMINAL NOT REQUIRED FOR APT) 


1.5 RELATED DOCUMENTS AND STANDARDS 

KDOJ11-A MODULE SPECIFICATION REV 2.2 

POP11 MAINDEC SYSMAC PACKAGE 

Jil CONTROL CHIP SPECIFICATION 21-17679-00 

J11 DATA CHIP SPECIFICATION 21-17677-00 

1.4 OIAGNOSTIC HIERARCY PREREQUISITES 

THE KDJ11 CPU AND MEMORY MANAGEMENT DIAGNOSTICS MuST 
eee PRIOR TO RUNNING THE FLOATING POINT 
1.5 ASSUMPTIONS 


IT IS ASSUMED THAT THE DIAGNOSTIC OPERATOR IS FAMILIAR WITH 
THE XXDP+ OPERATING SYSTEM AND THE J11 MICRO-ODT. 


2.0 OPERATING INSTRUCTIONS 

2.1 LOADING AND STARTING PROCEEDURE 

LOAD PROGRAM INTO MEMORY USING STANDARD XxXDP+ PROCEEDURES. 
THE PROGRAM IS STARTED BY LOADING ADDRESS 200 AND USING 
THE J11 MICRO-ODT G COMMAND TO START. THE PROGRAM 
IDENTIFICATION MESSAGE WILL BE TYPED AFTER THE FIRST PASS 
OF THE COMPLETE PROGRAM. 

2.2 PROGRAM OPTIONS 


THE FOLLOWING ASSIGNMENTS HAVE BEEN MADE FOR THE KDJ11-A 
DIAGNOSTIC SWITCH REGISTER BITS; 


errae> 14 13 12 11 10 9 8 
“DON: T “ia BIT “EXTENDED 
ADDRE CACHE 


TEST S 
BEVENT ONLY TESTS 


SEQ 9004 
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Ra weonne Desaunsas Decccens Bacesses Bewscacce Geacecee Peeveccse Gevecece 2 


THE SOFTWARE SWITCH REGISTER HAS NO EFFECT ON THE OPERATION OF 
THIS DIAGNOSTIC. 


2.3 OPERATION UNDER APT 
THERE ARE NO ABNORMALITIES IN THE EXECUTION OF THIS DIAGNOSTIC 
WHEN OPERATING IN AN APT ENVIRONMENT. PROBLEMS CAUSED BY THE 
ASYNCHRONOUS HALTS OF THE DIAGNOSTIC BY THE APT MONITOR HAVE 
NOT BEEN NOTED. 
3.0 ERROR INFORMATION 
ERRORS WILL CAUSE THE FOLLOWING ERROR MESSAGE TO BE PRINTED: 
ERROR DURING FPP TESTING 
ERROR ® = CUNIQUE ERROR NUMBER) 
ERROR PC = (PC AT TIME OF ERROR) 


THE ERROR WILL THEN BE REPORTED TO APT AND THE PROGRAM 
WILL HALT. 


4.0 PROGRESS REPORT 


AT THE END OF EACH PASS THE DIAGNOSTIC NAME AND PASS COUNT ARE PRINTED. 


é 


SEQ 0005 


Gl 


PROGR 4M ADER AND TABLES MACY11 30A( 1052) 5 -MAR -84 : PA 6 
KDJ11A.MA 15-MAR-84 15:51 atic — ae Oe == 6008 

156 . TITLE PROGRAM HEADER AND TABLES 
157 .SBTTL PROGRAM HEADER 
158 
159 -MCALL NEWTST,ERRDEF , ,EQUAT, .KT11,.$40CAT,.$EOP,.$APTBLS, SETUP 
160 -MCALL . $TYPE, .$TYPDEC ,ERRDF ,BGNTST,ENDTST ,BGNMOD,ENDMOD, CKLOOP 
161 -MCALL .HEADER, .SETUP, . $ TRAP ,BGNSUB,ENDSUB,.$ACT11,.$APTHDR 
ies -MCALL .S8APTYPE,.SERROR, .$TYPOCT, .$READ 
164 
165 
166 -TITLE KDJ11-A FLOATING POINT DIAGNOSTIC 
167 :*COPYRIGHT (C) OCTOBER,1983 
168 :*@DIGITAL EQUIPMENT CORP. 
169 ;*@MAYNARD, MASS. 01754 
7 . 

- 3;* 
17 3*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
ph ;*PACKAGE (CMAINDEC-11-DZQAC-C3), JAN 19, 1977. 

;* 

175 000001 $TN=1 


176 160000 $ SWR= 160000 ;sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TyPOUT 


aa = 


GLOBA. 
KDJLIA.M 
1 


MAC” 15-MAR “Ba 


001000 


200 
177776 


177774 
177772 
177570 
177570 


PESaPre? «TS MAR BA AAR RB anc RCe 7 


. TITLE GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 


3* 
; THE GLOBAL EQUATES SECTION ee PROGRAM EQUATES THAT 


hid 


: ARE USED IN MORE THAN ONE TEST 
'SBTTL BASIC DEFINITIONS 


ca. ie OF THE STACK POINTER ### 1000 se 


;sBASIC DEFINITION OF ERROR CALL 
3sBASIC DEFINITION OF SCOPE CALL 


STACK = 
-EQUIV EMT,ERROR 
“EQUIV IOT, SCOPE 


;*MISCELLANEOUS DEFINITIONS 

11 ssCODE FOR HORIZONTAL TAB 
3:CODE FOR LINE FEED 
3:;CODE FOR CARRIAGE RETURN 
3;CODE FOR CARRIAGE RETURN-LINE FEED 
~3sPROCESSOR STATUS WORD 


3:STACK LIMIT REGISTER 

INTERRUPT REQUEST REGISTER 
; sHARDWARE SWITCH REGISTER 
s sHARDWARE DISPLAY REGISTER 


LEVEL 


HT= 
LF= 12 
CR= 15 
CRLF: 200 
PS= 177776 

-EQUIV PS,PSW 

STKLMT= 177774 
PIRG= 177772 33 
DOSWR= 177570 
DDISP= 177570 

Se PURPOSE REGISTER DEFINITIONS 
RO= GENER 
Ri= i 3 sGENERAL 
R2= Led 
R3= es 
R4«= “4 
R5= #5 
R6= cia) 
R7= we? 

SP = 86 33:STACK Big him 
PC= “7 3% 
Seraph LEVEL DEFINITIONS 
PRO= 3; sPRIORITY 
PRi= 30 3 ;PRIORITY 
PRO. 100 : sPRIORITY 
PR3= 140 3; :PRIORITY 
PR4= 200 ; sPRIORITY 
PRS« 240 3 sPRIORITY 
PR6E= 300 : sPRIORITY 
PR7« 340 3 sPRIORITY 
3@"SWITCH REGISTER” SwITCH DEFINITIONS 
SwW15= 100000 

Swi4= 40000 

SW13= 20000 

SWle= 10000 

SW1il= 4000 

SwWi0= 2000 

SWO9= 1000 


NOU wr oO 


SEQ 9007 
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BASIC DEFINITIONS 


SWO8= 400 
SWO7= 200 
SWO6 = 100 
SWOS= 40 
SWO4= 20 
SWO3= 10 
SWO2= 4 

SWOl= 2 


-EQUIV SWOO,SWO 






Te 
BITO1,8IT1 
BITOO,BITO 


3 #BASIC all TRAP VECTOR ya nage yg 

ERRVEC= 33 TIME OUT AND OTHER ERRORS 

RESVEC= to ssRESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC*14 gg °t? 2s 

TRIVEC= 14 is TRACE TRAP 

BPTVEC= 14 :;BREAKPOINT TRAP (BPT) 

IOTVEC= 20 pe rN so all TRAP CIOT) seSCOPEss 
PWRVEC= 24 +sPOWER FAIL 


SEQ 9008 


GLOBA. AREAS 


KDJ1L1LA.MAC 


MACY11 ORC 4952 > 
15-MAR-84 15:51 


000030 


000250 


177572 
177574 
177576 
172516 


Ji 


Te TANBASIC BEF ENITIONS 


EMTVEC= 30 ssEMULATOR TRAP CEMT) *##ERROR«s 
TRAPVEC =34 33 "TRAP” TRAP 

TKVEC= 60 ss TTY KEYBOARD VECTOR 

TPVEC= 64 aT PRINTER VECTOR 

PIRQVEC #240 sPROGRAM INTERRUPT REQUEST VECTOR 


.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*KT11 VECTOR ADDRESS 
MMVEC= 250 
3@KT11 STATUS REGISTER ADDRESSES 
SRO= 177572 


SR3= 172516 
s#USER “I” PAGE DESCRIPTOR REGISTERS 


UIPDR7= 177616 
3;#USER "D” PAGE DESCRIPTOR REGISTORS 


UDPDRO= 177620 
UDPDR1= 177622 


UDPOR2 
UDPDRS= 177626 
UDPOR4 = 
UDPORS= 177632 


UDPORG6= 177634 
UDPOR7= 177636 


UDPAR2= 177664 


SEQ 9009 


GLOBAL. AREAS 
KDJ11A.MAC 


177666 
177670 
177672 
177674 
177676 


172216 


172220 
172222 


MACY11 30AC1052) 15-MAR-84_ 16: 
1S MAR Ba 15:51 MEMORY MAN 


UDPARS= 
UDPAR4 = 
UDPARS = 
UDPAR6 = 
UDPAR7 = 


;*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 


;*SUPERVISOR “D” PAGE DESCRIPTOR REGISTERS 


SOPDRO= 
SOPOR1 = 
SOPOR2= 
SOPORS= 
SOPDR4 = 
SOPDRS= 
SDPOR6= 
SOPDR7= 


s;*KERNEL “I” PAGE DESCRIPTOR REGISTERS 


177666 
177670 
177672 
177674 
177676 


1 
172216 


172276 


KL 


PAGE 1 
AGENENT BEF INITIONS 


SEQ 9010 


GLOBAL AREAS 
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172310 
172312 
172314 
172316 


172320 
172322 


000244 


177746 
177744 
177752 
177766 


15-MAR -84 
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PAGE 11 
MEMORY MANAGEMENT DEFINITIONS 


KiPDR4= 
KIPORS= 
KIPOR6= 
KIPDR7= 


172310 


172316 


;*KERNEL “D" PAGE DESCRIPTOR REGISTERS 


KDPORO= 


KDPOR1= 1 


KDPOR2= 
KDPDRS= 
KDPDR4 = 
KDPORS= 


KDPDR6= 1 


KDPDR7= 


172320 


1723356 


;*KERNEL "I" PAGE ADDRESS REGISTERS 


244 


; THESE ARE CACHE REGISTER EQUATES 


CCR= 


HITMIS= 
CPEREG= 


177746 sCACHE CONTROL REGISTER 

177744 sMEMORY SYSTEM ERROR REGISTER 
177752 ;HIT/MISS REGISTER 

177766 ;CPU ERROR REGISTER 


SEQ 0011 


GLOBAL. AR 
KDJ1L1A.MA 


000052 


Mi 
MORY ANAGENENT ‘BEF INITIONS 


MISCELANEOUS DEFINITIONS 
BEVENT= 1 177546 ;BEVENT CONTROL REGISTER 


177562 
177564 
177566 
HALT 


EAS is . 0 OF Pa Ae tea 15- “MAR. 98 16; 


s INITIALIZE ERROR NUMBER COUNTER 


AUSWR= 2000 sSWR FOR APT--NO BEVENT TESTING 


;THIS EQUATE DEFINES THE BOTTOM OF THE PROGRAM STACK POINTER 
STBOT= 1000 

. ASECT 

.SBTTL TRAP CATCHER 


3#ALL UNUSED LOCATIONS a” THE VECTOR AREA CONTAIN 
3A _ ".e2, IOT” SEQUENCE TO CATCH AND PROCESS ILLEGAL 
;*TRAPS AND INTERRUPTS THAT MIGHT OCCUR. 


ROUTINE. 
WILL REPORT THE ERROR AS FOLLOWS: 
PC*VYYYYYY UNEXPECTED TRAP TO xxx 
RAND RETURN TO THE PROGRAM AT Weary tt ee 
;¢WHERE XXX*LOCATION OF ILLEGAL T 
34 YYYYYY=PC AT TIME OF Tap 
IF THE PROCE IS NOT AN 11/05 


; «NOTE: SSOR THE PROGRAM 
.é CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 
$40CAT: HALT ssHALT 
BR »*100 bey aN TO 177700 € TIME OUT CNOT ON 
$3 
.WORD START ;3VECTOR TO STARTING ADDRESS 
- WORD 33WITH PRIORITY LEVEL 7 
DISPREG:.WORD 0 ::SOFTWARE DISPLAY REGISTER 


SWREG: . Q 3sSOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRES(ES) 


JMP GOSTART ;;GO TO START OF PROGRAM 
-SBTTL ACT11 HOOKS 


5 5 9O264064288466406686664606666806606066460680800060000000500800042002 008088 


sHOOKS REQUIRED BY ACT11 


Sve :SAVE PC 
HENDAD :21)SET LOC.46 TO ADDRESS OF SENDAD IN .sEOP 
“WORD 2:2)SET LOC.S2 TO ZERO 

=$SVP +3 RESTORE PC 


: C 
-SBTTL APT PARAMETER BLOCK 


oS FH#HESOASESSEAASSEASSAAEAHSEHAAEAAEHRHARESAAAERAEARRARAARAARARLLAAAA 


sSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


SEQ 9012 


GLOBAL 


KDJ11A. 


AREAS 
MAC 


000024 
000044 


MACY11 30A( 1052) 
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Ni 
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APT PARAMETER BLOCK whee 
83 SEERARAEAERAREEAEABDALAAREAAEAAEAAEEAEAAEAEAEAEMAGAKEEEE HERES ahh 

.$X= ;:SAVE CURRENT LOCATION 

224 VTSET POWER FAIL TO POINT TO START OF PROGRAM 

200 33FOR APT START UP 

244 :;POINT TO APT INDIRECT ADDRESS PNTR. 

$APTHDR ;;POINT TO APT HEADER BLOCK 

=.$X  ;;RESET LOCATION COUNTER 


jE AAAAAAAAEREEESEEREEAAEREALAEERAEREREEREAAEEEAEEAEDEEREEEE ERE AS 
sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
s INTERFACE SPEC. 


SAPTHD: 
$HIBTS: 
$MBADR : 
$TSTM: 
$PASTM: 
$UNITM: 


~7. $x 


. WORD 
. WORD 


. WORD 
. WORD 
. WORD 
WORD 


3;TWO HIGH BITS OF 18 BIT MAILBOX ADOR. 


0 
‘oie ;sADDRESS OF APT MAILBOX (BITS 0-15) 


3sRUN TIM OF LONGEST TEST 
2 3sRUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
0 ;sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SE TEND - sMAIL/2 ssLENGTH MAILBOX - E TABLEC WORDS 3 

sSAVE CURRENT LOCATION COUNT 


;SET UP SOME VECTORS 
sRESTORE LOCATION COUNT 


AREAS 


GLOBAL 
KDJLLA, MAC 


001030 


MACY11 30A( 1052) 
1S5-MAR-84 15:51 


Be 
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GLOBAL DATA SECTION 


-SBTTL GLOBAL DATA SECTION 

3¢ 

: THE GLOBAL DATA aye t yon CONTAINS DATA THAT ARE USED 
. IN MORE THAN ONE T 

 SBTTL APT MAILBOX -ETABLE 


BS PSSSAHSHAAASEESESEEEHESEEEEEEEEEEEEEEDESEEEERADASOEEEEREEEEEEEOES 


$MAIL: 33APT MAILBOX 

SMSGTY: .WORD AMSGTY ;;s;MESSAGE TYPE CODE 

SFATAL: .WORD AFATAL ;;FAT OR 

STESTN: .WORD ATESTN 3;;TEST NUMBE 

SPASS: .WORD APASS 33sPASS COUNT 

SDEVCT: .WORD ADEVCT ;;DEVICE COUNT 

SUNIT: .WORD 33170 UNIT NUMBER 

SMSGAD: .WORD 33MES ADDRESS 

SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 

SETABLE: 33APT ENVIRONMENT TABLE 
SENV: BYTE AENV eens BYTE 

SENVM: .BYTE 3s sSENVIRONMENT ITs 
SSWREG: .WORD ASWREG ;;APT SWITCH REGISTER 

SUSWR: .WORD :sUSER SWIT 

sCPUOP: .WORD ACPUOP ;;CPU TYPE,OPTIONS 

36 BITS 15- 11°CPU TYPE 

3¢ aoe e Sy 2 1172003, 11/40704,11/45-05 
34 11/7006 ,PDQ+07 ,G=10 
3¢ BIT 10°REAL TIME CLOCK 

ho BIT 9=FLOATING POINT + le 
3° BIT S*MEMORY MANAGEME 

SE TEND: 

-MEXIT 


s THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE YECTOR DATA 
sWHEN THE TEST ee: TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
3FROM = DEFAULT RESPONCE . 

SLOC 0 

SLOCO1: .WORD 0 


ING DATA 
(GOOD) DATA FOR COMPARISONS 









XPDAT: .WORD 0 CTED 

RECDAT; WORD Oo sSTORES RECIEVED DATA TO BE VERIFIED 
COUNT: .WORD 0 sERROR INDICATOR FOR FLOATING St TESTS 
FLAG: WORD O sUSEO TO STORE “FLAG” CONDITI 

ERRCNT: .WORD 0 sSTORAGE FOR ERROR COUNT 

SUR : -WORD OSWR sSTORAGE FOR SWITCH REGISTER ADDRESS 
DISPLAY: .WORD ODISP ow FOR DISPLAY REGISTER ADDRESS 
SERFLG: ve 8) sERROR FLAG 

s THESE LOCATIONS ARE USED BY MORE THAN ONE TEST AS LOOP COUNTERS 
DCOUNT: .WORD O 

ALLCTR: .WORD 0 

LOOPIN: .WORD 0 

SAVSP1: .WORD 0 »sSTORAGE FOR UNEXPECTED TRAP DATA 
SAVSP2: .WORD 0 ; " <8 * “ 


SEQ 0014 


Ce 


RBUPTA.AAE’S  sARATR SPBCAP52> 1S-MAR ABS AG BBy BOREL ES 


001066 
001076 
001106 
001116 
001126 


001136 
001136 


000020 


BIEXP; .BLKW 
BTRES: .BLKW 
RECFEC: .BLKW 
RECST: .BLKW 
RECDST: .BLKW 


88THIS IS 
" BLKW 


4 sSTORES EXPONENT DURING BIT TESTS 

4 sSTORES RECIEVED DATA FOR BIT TESTS 

4 sRECIEVED FLOATING POINT EXCEPTION CODE 

4 sRECIEVED FLOATING POINT STATUS 

4 sDESTINATION ADDRESS FOR FLOATING POINT TESTS 
IT. THE PROGRAM TEST LOCATION AND WRITE BUFFERS Sfssssssesssesess 

20 


SEQ 9015 


GLOBAL. 


AREAS 


KDJL1A.MAC 


MACY11 30A( 1052) 
15-MAR-84 15:51 


123456 
000000 


003000 000002 
000000 000000 


15-MAR -84 
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APT MAILBOX -E TABLE 


TABL: 


TAB2: 


TABS: 


TAB4: 


TABS: 


TABSA: 


TABE6: 


TAB6A: 


TAB?: 


TABS: 
TAB1O: 


TABI1: 


TABLIA: 


TABle: 
TAB15: 


a5553 


83 § SSSSSSS8 SESSSSSSSSSISSIIIIRIIIIIII3 


123456 
000000 


0 


1 

055555 
177777 
145671 
100000 
003000 
re 


162400 


ee 


~ E88 . 2 


a 

2 
- 
° 


De 


SEQ 9016 


GLOBAL 


AREAS 


KOJ11A.MAC 


MACY11 30A(1052) 15-MAR-84 PAGE 17 
15-MAR-84 15:51 APT MASCBOX-ETRBLE 
.WORD 0 
000001 “WORD 
030000 003000 000000 TABISB: .WORD — 30000, 3000,0, 140000 
030000 TAB14: .WORD 30000 
000000 "WORD 0 
000000 "WORD O 
000000 “WORD 
024700 TAB1S: :WORD 24700 
000000 “WORD 
000000 “WORD 0 
000000 "WORD 
025000 TAB16: :WORD 
175363 "WORD 175363 
123456 “WORD 123456 
123456 . WORD 123456 
TAB17: .WORD 
007020 “WORD 7020 
000000 . WORD 0,0 
023456 TAB18: :WORD 23456 
000000 “WORD 0 
000000 “WORD 0 
000001 “WORD 1 
100200 000000 000000 TAB21: ‘WORD 100200.0.0.0 
100400 000000 000000 TAB22: .WORD  100400,0.0.0 
000200 000000 000000 TAB23: .WORD 200,0.0.1 
062400 000000 000000 TAB24: .WORD 62400,0,0.0 
001100 000000 000000 TAB25: . WORD 1100,0,0,0 
100600 000000 000000 TAB26: .WORD 100600,0.0.0 
001000 000000 000000 TAB27: .WORD  1000,0.0.0 
900600 000000 000000 TAB28: .WORD 600.0,0,0 
010100 000000 000000 TAB29: .WORD 10100,0,0,0 
010100 000000 002000 TAB29A: .WORD  10100.0,2000,.0 
os 
000500 000000 000000 TAB30: .WORD 500.0,0,0 
100400 000000 000000 TABS1: .WORD 100400.0.0.0 
016000 000000 000000 TABS2: .WORD  16000,0,0.0 
011600 000000 000000 TAB33; .WORD 11600,0.0.0 
000640 000000 000000 TAB34; .WORD  640,0,0.0 
077600 000000 000000 TAB40: .WORD 77600,0,0,0 


te 


SEQ 9017 


GLOBAL 
KDJLIA 


AREAS 
-MAC 
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000000 
000000 
177777 
177777 
177777 
124242 
000000 
124242 
000000 


15-MAR -84 


000000 
000000 
177777 
177777 
000000 
052525 
052525 
000000 
000000 


re 
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APT MAILBOX -E TABLE 


TAB41; 
TAB42: 
TABS3: 
TAB4S: 
TAB46: 
TAB47; 
TAB47A 
TABSS: 
TAB49: 


. WORD 
. WORD 


100200,0,0,1 

340,0,0,0 
77,177777,177777,177776 
377,-1,-1,-1 

377,-1,0,0 

173737,124242 ,052525, 12346 
0,0,052525, 12346 
173737,124242,0,0 
600,0,0,0 


SEQ 9016 


GLOBAL 
KDJLIA. 


AREAS 
MAC 


3 
051122 
051122 

25 


Ge 
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.SBTTL GLOBAL TEXT SECTION 


3¢ 
: THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND reat. INFORMATION THAT ARE USED IN 


; MORE THAN ONE T 


; 
; FORMAT STATEMENTS USED IN PRINT CALLS 


ERRMSG: : .ASCIZ 
FPPERR: .ASCIZ 
ERR1: -ASCIZ 
ERR2: -ASCIZ 
SCRLF: .ASCIZ 

-EVEN 


<CR><LF>/CACHE SYSTEM ERROR/ 


<CR><LF>/ERROR DURING FPP TESTING/ 


<CR><LF>/ERROR @ =/ 
<CR><LF>/ERROR PC =/ 


<CR><LF>/ / 


SEQ 9019 


GLOBAL AREAS 
KDJLLA.MAC 


He 
MACY11 30AC1052) 15-MAR-84 16:58 PAGE 20 
15-MAR-84 15:51 GLOBAL ERROR REPORT SECTION 


.SBTTL GLOBAL ERROR REPORT SECTION 
pee 
; THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 


; USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. 
ao 


SEQ 9020 


GLOBAL. 


AREAS 


KDJ11A.MAC 


002106 
002110 
002112 
002114 
002116 
002120 


002122 
002124 
002126 


MACY11 30A(C 1052) 
15 -MAR -84 1 


15:5 


000003 
000012 


000005 
176654 


15 -MAR -84 


176676 


176660 
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GLOBAL SUBROUTINES SECTION 


.SBTTL GLOBAL SUBROUTINES SECTION 
i+ 

: THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST, 

;FPP gk SUBROUTINES 


WLOTRP (SP)+,RO ;SAVE PC 
MOV (SP)+,R5 sSAVE STATUS AND RESTORE STACK 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD sUNIQVE ERROR NUMBER 
.WORD FPPERR sADDRESS OF ERROR MESSAGE 
JMP CRO) ;GO BACK INLINE 

' 

TRPFLG: -WORD 0 

ERRFP: RTS R7 

ERR: RTS R7 


;SUBROUTINE DATA VERFICATION - 
: CALLED By JSR R7,DATVER 


pINPUT (R4 EXPECTED DATA 
C(R1)*RECEIVED CATA 


; THIS ROUTINE VERIFIES THAT THE 4 CONSECTIVE WORDS STARTING WITH (R4) ARE 
sEQUAL TO THE FOUR WORDS ADDRESSED BY (R1). THE CONTENTS OF R4, AND R1 ARE NOT 


“COUNT” . IF NOT EQUAL sol O SIGNIFIES DATA ERROR 
sIF THE STATUS IS FLOATING MODE, THE LAST TWO BYTES OF RECEIEVED 
sARE SIMPLY CHECKED FOR ZEROS 


DATVFR: MOV R4,-CSP) :SAVE R4 
MOV #3 .COUNT sSET UP ITERATION COUNT 
JMP : 
DATVER: MOV R4,-CSP) sSAVE R4 
MOV Ri, -CSP) ;SAVE R1 
MOV os, T ;SET UP ITERATION COUNT 
DATi: OEC COUNT 
BEQ 2s ;BRANCH IF DONE 
CMP C(R4)+, CRL)o 3 
BEQ DATL 
2s: MOV (SP)+,R1 :RESTORE R1 
MOV CSP )+¢,R4 sRESTORE R4 
RTS R7 :G0 BACK TO CALLING wary 


:IF DATA ERROR, COUNT 


SEQ 9021 


GLOBAL 


AREAS 


KDJ11A.MAC 


002422 


MACY11 30A( 1052) 
15-MAR-84 15:51 


012737 
012706 
012737 


005067 
132767 
001403 
012767 


7 
012737 


000014 
001000 


176572 


002320 
177570 
177570 
177777 


002326 


000176 
000174 
000004 


Je 


15-MAR-84 16:58 


177746 


176512 
176506 


176441 
176456 


000020 
000022 


177746 


PAGE 22 
GLOBAL SUBROUTINES SECTION 


TART: 
MOV #14 ,8eCCR sSET CACHE TO FORCE MISS 
.SBTTL INITIALIZE THE COMMON TAGS 
MOV @STACK , SP +sSETUP THE STACK POINTER 
;s INITIALIZE A “ VECTORS 


MOV @SERROR ,QVEMTVEC ;,EMT veer FOR ERROR ROUTINE 
MOV 0340, BOEMTVEC+2 ssLEVEL 7 

MOV OSTRAP ,Q@@TRAPVEC ;; TRAP ~~ FOR TRAP CALLS 
MOV ee EL 

CLR $PASS “CLEAR THE PASS COUNT 

MOV SENOCT , SEOPCT + SETUP END -OF - ee aye COUNTER 
CL ERFLG AR THE ERROR FLAG 


RB 3 33;CLE 
33SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;sEQUAL TO A “-1", SETUP FOR A SOFTWARE ahr 


MOV @OERRVEC, -(SP) 3;SAVE ERROR v 
MOV 064% , BOERRVEC 3;SET UP ERROR VECTOR 
MOV GDSWR , SWR ;s;SETUP FOR A HARDWARE SWICH REGISTER 
MOV @ODISP DISPLAY ;;AND A HARDWARE DISPLAY REGISTER 
CMP #-1,28SWR s3TRY TO REFERENCE HARDWARE SwR 
BNE 66% :;B8RANCH IF NO TIMEOUT TRAP OCCURRED 
33;AND THE HARDWARE SWR IS NOT = -i 
BR 65$ ; ;B8RANCH IF NO TIMEOUT 
64%: ate 065% ,CSP) S ESET UP FOR TRAP RETURN 
65$: MOV @SWREG , SWR 3sPOINT TO SOFTWARE SwR 
MOV @DISPREG, DISPLAY 
66$: MOV CSP )-, GOERRVEC ssRESTORE ERROR VECTOR 
-MACRO *$$sSETMAIL 7$ARG1 
CLR $68 may PASS COUNT 
BITB @APTSIZE , SENVM sTEST USER SIZE UNDER APT 
BEQ $ARG1 + sYES, USE NON-APT SWITCH 
endins MOV @sSWREG.SWR : 3NO, USE APT SWITCH REGISTER 
Pe 
-ENDOM $$SETMAIL 
CLR sPASS 33;CLEAR PASS COUNT 
BIT8 @APTSIZE,SENVM ;;TEST USER SIZE — APT 
BEQ 67% 33;YES.USE NON-APT SWITCH 
— @$SWREG, SWR 33NO,USE APT SUITCH REGISTER 
MOV @SERROR . B@IOTVEC ::SET UP IOT VECTORS 
MOV #340 ,O@IOTVEC +2 :3;TO GO TO ERROR ROUTINE 
CLR 80177766 ;CLEAR CPU ERROR REGISTER 
RESTART: CLR $TESTN sRESET STESTN TO ZERO 
MOV #14,&S9CCR ;SET CACHE TO FORCE MISS 


§%2606666666066406604460600046600460000006000000000000080600000002000000000000008 
-SBTTL FLOATING POINT TESTS 

§ 90666450046 60466046464600064006006000046000064000000000000000000000000202000000000 
5 BEGIN FLOATING POINT TESTING 
§9O0000600644646466664000460060000006 60000600000000000000000000000000000000aa0a04 
SSPRASHESSAAEASAESHKSAAEASASASESARAARAAAAARARAAASAALAALASLAAAARAAAARAaARALEdA 
MBT1: 

§ FOSS SSS4E4464646646460460460060 0646040600002 0b FRRRARAAREAEAAAAAAALALALAaALa 


s*TEST 1 PP REGISTER BIT TESTS 


$F FFSSSSSSESSSSASHSSSASSASASHAAAESAAAAAAASAHASAKAASARARAAARAAALLE 


SEQ 9022 


Ke 


GLOBAL AREAS —_MACY11 30A(1052) 15-MAR-84 16:58 PAGE 23 z 
KDJ11A.MAC 15-MAR-84° 15:51 Ti PBp RECESTER BIT TESTS SEQ O02 
887 :RS=FPP POINTER 
888 ;R1*TEMPORARY COUNTER 
889 ;R2=POINTER TO EXPECTED DATA 
890 ;R3=POINTER TO RECEIVED DATA 
891 ;R4=0DD/EVEN COUNTER 
892 3 SSEAAARARAEAEAAREREEEAEEEREAAENADEREAEEEREAEEABRAEAEMAEAMAEEMEEEEEEEE 
893 002422 STL: 
894 002422 005267 176356 INC $TESTN ; INCREMENT TEST NUMBER 
895 002426 170011 SETD 
896 002430 005005 MBT2: CLR RS ;SETUP FPP ACC POINTER 
897 002432 012702 001066 MOV OBTEXP ,R2 sPOINT TO TEST DATA 
898 002436 012703 001076 MOV OBTRES.R3 ;POINT TO RECEIVED DATA 
899 002442 170400 MBT2A: CLRD ACO ;SETUP FPP REGISTER VALUES 
900 002444 174012 STD ACO, (R2) ;CLEAR EXPECTED VALUE 
901 002446 005004 CLR R4 
902 002450 170400 BTGO: CLRD ACO ;SETUP FPP REGISTER VALUES 
903 002452 170401 CLRD ACL 
002454 170402 CLRD = AC2 
905 002456 170403 CLRD ACS 
002460 170404 CLRD ACA 
907 002462 170405 CLRD ACS 
909 002464 010501 MOV RS.R1 ;GET FPP AC NUMBER INTO Ri 
910 002466 070127 000014 MUL 014,R1 ;ALLOW 10 LOCATIONS FOR OPERATION 
911 002472 062701 002500 ADD OMACO,R1 ;SETUP JMP LOCATION 
912 002476 000111 JMP (R1) 
913 002500 172467 176362 MACO: LOD BTEXP ACO ;LOAD TEST DATA INTO TEST REGISTER 
914 002504 174067 176366 MACOA: STD ACO, BTRES ;SAVE TEST RESULT 
915 002510 000167 000074 JMP MACE ;GET OUT 
916 002514 172567 176346 MAC1: LOD BTEXP,AC1 ;LOAD TEST DATA INTO TEST REGISTER 
917 002520 174167 176352 STD AC1,BTRES ;SAVE TEST RESULT 
918 002524 000167 000060 JMP ;GET OUT 
919 002530 172667 176332 MAC2: LOD BTEXP ,AC2 ;LOAD TEST DATA INTO TEST REGISTER 
920 002534 174267 176336 STD eT ;SAVE TEST RESULT 
921 002540 000167 UMP ;GET OUT 
922 002544 172767 176316 MAC3: LOD BTEXP,AC3 ;LOAD TEST DATA INTO TEST REGISTER 
923 002550 174367 176322 STO AC3,BIRES ;SAVE TEST RESULT 
924 002554 000167 000030 JMP MACE ;GET OUT 
925 002560 172467 176302 MAC4: LOD BTEXP.ACO 
926 002564 174004 STO ACO, AC4 ;LOAD TEST DATA INTO TEST REGISTER 
927 002566 172404 LOD AC4 ACO ;SAVE TEST RESULT 
928 002570 000167 177710 IMP MACOA ;GET OUT 
929 002574 172467 176266 MACS: LDD BTEXP,ACO ;LOAD TEST DATA INTO TEST XFER REGISTER 
930 002600 174005 STD 0,AC5 ;LOAD TEST REGISTER 
931 002602 172405 LOD ACS. ACO ;STORE RESULT INTO XFER FPP REGISTER 
932 002604 000167 177674 JMP MACOA :GET OUT 
933 002610 026767 176252 176260 MACE: CMP BTEXP ,BTRES 
934 002616 001014 GNE TER ;BRANCH IF REGISTER ERROR 
935 002620 026767 176244 176252 CMP BTEXP+2,BTRES+2 
936 002626 001010 BNE 
937 002630 026767 176236 176244 CMP BTEXP+4,BTRES+4 
938 002636 001004 BNE BTER 
939 002640 026767 176230 176236 CMP BTEXP +6, BTRES+6 
940 002646 001403 BEQ MBTB :GOOD RESULT 
941 002650 BTER: 
942 002650 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 


RDUJTIA. MAC 1s” M HAR Bat oS geie aie 16:28 RECTSTER BIT TESTS 


000002 
002013 


000004 


176200 
000246 


000001 


176152 
000220 


000002 


176124 
000172 


000005 


MBTBA: 


MBTSB: 


MBT8C: 


MBT8D: 


MBTS8E: 


. WORD 
. WORD 


;NOW VERIFY THE 
MBTS 


2 
FPPERR 


ODA ERROR NUMBER 


RESS OF ERROR MESSAGE 


ADD 
AC LOADED INCORRECTLY 
OTHER REGISTERS REMAINED ZERO 


sBAD ACO 


;BAD AC1 


sCLEAR TEMPORARY COUNTER 

sSEE IF RO UNDER TEST 

sBRANCH IF TEST ING RO 

sSEE IF TESTING FPP REGISTER >R4 
sSKIP RO TESTING 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
sBRANCH IF EXPECTED RESULT 

sALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


;SEE IF R1 UNDER TEST 

sBRANCH IF Ri UNDER TEST 

sSAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
BR IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 

; UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sSEE IF TESTING FPP REGISTER ACO 
IF UNDER TEST 


;BRANCH R2 

; SAVE AC TEST RESULT 

sVERIFY THAT CONTENTS REMAINED ZERO 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQGUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


3BAD AC2 


;SEE IF R3 UNDER TEST 

BRANCH IF R3 UNDER TEST 

RESULT 

THAT CONTENTS REMAINED ZERO 


GOOD 
ALL ERRORS TO TRAP TO EMT VECTOR 
UNI ERROR 
sADDRESS OF ERROR MESSAGE 


:BAD ACS 


;SEE IF R4& UNDER TEST 

IF UNDER TEST 
sMOVE REGISTER T 
;SAVE AC TEST 


RESULT 
;VERIFY THAT CONTENTS REMAINED ZERO 
;BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

;ADDRESS OF ERROR MESSAGE 


:BAD AC4 


;SEE IF RO UNDER TEST 
;BRANCH IF RO UNDER TEST 


SEQ 0024 


GLOBAL 


AREAS 


KDJ11A.MAC 


003200 


003200 
003200 


003204 
004206 


005267 175600 


170011 
005000 


MACY11 30A 
15-MAR-84 15 

172405 

174067 176016 
004767 000064 
001403 

104000 

000010 

002015 

005204 

000241 

042704 177776 
001401 

000261 

006112 

006162 000002 
006162 000004 
006162 000006 
103402 

000167 177314 
005205 

020527 000006 
100016 

000167 177272 
005767 175722 
001010 

005767 175716 
001005 

005767 175712 
001002 

005767 175706 
000207 


Me 


= main 16: RB, Ree EsTeR BIT TESTS 


LOD Ags ACR VE REGISTER CONTENTS 
STO ACO, BTRES sSAVE AC TEST RESULT 
JSR R7,BTTST ; VERIFY ge CONTENTS REMAINED ZERO 
BEQ MB TSF sBRANCH IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 10 sUNIQUE ERROR NUMBER 
WORD FPPERR pap acs MOORES OF ERROR MESSAGE 
’ 
MBTSF ; ave R4 s INCREMENT PATTERN COUNTER 
BIC 0177776,R4 ; TEST "eS eee /EVEN 
BEG MBTSFG sBRANCH IF EVEN 
SEC 3SET CARAY FOR TEST PATTERN SHIFT 
MBT8SFG: ROL (R2) sROTATE LSW OF TEST PATTERN 
OL 2(R2) sROTATE 2 WORD OF TEST PATTERN 
ROL 4(R2) sROTATE 3 WORD OF TEST PATTERN 
ROL 6(R2) sROTATE 4 WORD OF TEST PATTERN 
ecs MBT8I s JUMP IF THROUGH WITH TEST PATTERN 
B8TGO S CONT INUE WITH NEW TEST PATTERN 
MBT8I: INC R5 :GO TO NEXT REGISTER TEST 
CMP RS, 06 ;SEE IF THROUGH TESTING 
BPL MBTE 3; JUMP IF THROUGH 
JMP MBT2A sCONTINVE TESTING WITH NEW PATTERN 
3 
; 
BTTST: TST BTRES sVERIFY CONTENTS AS ZERO 
BITSTE sEXIT IF NOT ZERO 
TST BTRES+2 ;VERIFY CONTENTS AS ZERO 
BNE STTSTE sEXIT IF NOT 
TST BIRES+4 Y CONTENTS AS ZERO 
BNE BTTSTE sEXIT IF NOT 
TST BIRES +6 3 IFyY CONTENTS AS ZERO 
BTTSTE: RTS R7 3G0 BACK TO CALLING ROUTINE 
3 
3 
MBTE: 
3 
MF ACU 


: 
5 §O99O6 6446846480 6605000460646460666000066006006000000006000060000002008088 
T 


s@TEST 2 


TEST UNIQUENESS OF FPP 


8 § 99608 6648400646666466666662026606 $60600400000000006000000000000000820 


sTHIS TES 
sR2=POINTER TO EXPECTED DATA 
“POINTER TO RECEIVED DATA 


T LOADS UNIQUE ae INTO EACH ACCUMULATOR SIMULTANEOUSLY. 


5 § 9956456668 60664664646460860646064666 0682600060004 0FSSFRESRERRAZOLERLA 


TST2: 


MFA; 


INC sTESTN 
; 
a 


o 
SETD 
CLR RO 


: INCREMENT TEST NUMBER 


;SETUP FPP ACC POINTER 


SEQ 9025 


GLOBAL AR 
KDJ11A.MAC 


EAS 


MACY11 30AC1C52) 
15-MAR-84 15:51 


34 
175610 


15-MAR-84 16:58 PAGE 26 
Te TEST UNIQUENESS OF FPP ACCUMULATORS 


175622 


BFAC1: 


BFACe: 


BFACS3: 


BFAC4: 


BTEXP, ACO 
ACO, ACS 


RS, SUBT 
BTEXP, ACO 
CO,AC4 
RS, SUBT 
BTEXP,AC3 
BTEXP,AC2 
BTEXP, ACL 
RS, SUBT 
BTEXP, ACO 
ACO, BTRES 
RS,BFA 
ACL 


sPOINT TO TEST DATA 
sPOINT TO RECEIVED DATA 
;SETUP EXPECTED DATA 

‘ 

4 


: 

sMOVE DATA TEMPORARILY 

sPUT DATA INTO TEST REGISTER 
sSUBTRACT TEN FROM EACH EXPECTED DATA 
sMOVE DATA TEMPORARILY 

sMOVE DATA INTO TEST REGISTER 
sSUBTRACT 10 FROM TEST DATA WORDS 
s STORE ig TEST REGISTER 

sGET NEXT SET OF UN UNIQUE. D DATA WORDS 
sSTORE INTO TEST REGISTER 

sGET NEXT SET OF TEST DATAS 
ant REGISTER 


REGISTER 
sALL REGISTER CONTAIN UNIQUE TEST WORDS 
sSTORE ACO le aad 
sCHECK RE 
IGRANCH FG GOOD 
ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


;BAD ACO 


sUPDATE EXPECTED RESULT 
sSTORE AC1 RESULT 
: CHECK coe 
BRANCH TF GOOD 
ALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR NUMBER 
; ADDRESS OF ERROR MESSAGE 


;BAD RESULT AC1 


3; ADDRE 
3B8AD AC2 RESLUT 


sUPDATE EXPECTED RESULT 
RESULT 


;UPDATE EXPECTED RESULT 

; SAVE TEST RESULT 

3 CHECK ‘ox 

;BRANCH I F GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADORESS OF ERROR MESSAGE 


sBAD ACS RESULT 


; UPDATE oe RESULT 
MPORAR 


;CHECK RESULT 


SEQ 0026 


pe 
— 
a 
fur 


PP be be be pe pe pe 
alll aed coal andl aed ol ae od 
het Aaah hy che 

O@nOyvbw 


BS 


MACY11 30AC1052) 15-MAR-84 16:58 PAGE 27 SEQ 0027 
15-MAR-84 15:51 T2 TEST UNIQUENESS OF FPP ACCUMULATORS 
001403 BEQ BFACS sBRANCH IF GOOD 
104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
000015 . WORD 15 sUNIQUE ERROR NUMBER 
002013 .WORD FPPERR sADORESS OF ERROR MESSAGE 
3BAD AC4 "RESULT 
004567 000056 BFACS: JSR RS,ADDT s UPDATE te Aha RESULT 
172605 LOD ACS,AC2 sSAVE TEMPORARY COPY 
174267 175370 STO AC2,BTRES sMOVE ACS RESULT 
004567 000076 JSR RS BFA sCHECK RESULT 
001456 BEQ BF AE sBRANCH IF GOOD 
104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
000016 . WORD 16 sUNIQUE ERROR NUMBER 
002013 WORD FPPERR sADORESS OF ERROR MESSAGE 
3B8AD Acs’ RESULT 
000452 BR BF AE sEXIT MODULE 
162767 000010 175334 SUBT: SUB #10,6TEXP sUPDATE EXPECTED CONTENTS 
162767 000010 175330 SUB 010, .BITEXP+2 sUPDATE EXPECTED CONTENTS 
162767 000010 175324 SUB #10, BTEXP +4 sUPDATE EXPECTED CONTENTS 
162767 000010 175320 ave ait sUPDATE EXPECTED CONTENTS 
000205 $ 
062767 000010 175302 ADDT: ADD #10, BTEXP sUPDATE EXPECTED CONTENTS 
062767 000010 175276 AOD #10 .BTEXP.2 sUPDATE EXPECTED CONTENTS 
062767 000010 175272 ADD 010, BTEXP +4 sUPDATE EXPECTED CONTENTS 
062767 000010 175266 re oo © sUPDATE EXPECTED CONTENTS 
i 

026767 175252 175260 O6FA: CMP BTEXP .BTRES sVERIFY CONTENTS 
001013 BNE sEXIT IF NOT ZERO 
026767 175244 175252 CMP BTEXP +2, BIRES+2 sVERIFY CONTENTS 
001007 BNE sEXIT IF NOT ZERO 
026767 175236 175244 CMP BIEXP +4  BIRES+4 sVERIFyY CONTENTS 
001003 BNE sEXIT IF NOT ZERO 
026767 175230 175236 CMP BIEXP +6 ,BTRES +6 ;VERIFY CONTENTS 
000205 SFB: RTS RS 3GO0 BACK TO CALLING ROUTINE 

BF AE: 

TSFP1; 

83 9O080000600046086606066000000006000000006000000600000000000000000888 

seTEST 3 TEST LOFPS AND STFPS MODE 0 

5b §9O0060660008066060000600060600060600000000000600000000000000000000006 

TSTS3;: 
005267 175130 INC sTESTN s INCREMENT TEST NUMBER 
005037 002122 CLR TRPFLG ;CLEAR TRAP FLAG 
012704 147757 MOV 147757 ,R4 :SETUP DATA TO BE LOADED 
004767 000032 JSR PC,LOST sLOAD AND STORE FPS WITH DATA 
012704 105252 MOV #105252 ,R4 SETUP DATA TO BE LOADED 
004767 900022 JSR PC ,LOST :LOAD AND STORE FPS wITH DATA 
012704 042505 MOV 642505 ,R4 SETUP DATA TO BE LOADED 
004767 000012 JSR PC ,LOST sLOAD AND STORE FPS WITH DATA 
005004 CLR R4 sSETUP DATA TO BE LOADE 


) 
004767 000004 JSR PC,LOST sLOAD AND STORE FPS WITH DATA 


GLOBAL 


KDJL1A.M 


a 


004054 


1S Han ba ee a052 > 15 -MAR - 784 16; ‘Psy 


177776 
177760 


174734 
002122 


000200 


: 
LOST: 


18: 
FINL: 
; 
TSFPe; 


FIN1 
R4 

Ri 
R4,R1 
18 

17 
FPPERR 
PC 


. 


PA 
CBF PEF ano STFPS MODE O 


s ADDRE 
sNO GO 10 ERROR 


SEQ 9028 


sLOAD FPS WITH DATA 

sLOAD R1 WITH (FPS) 

s0ID THE INSTRUCTIONS WORK 

sYES GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

SS OF ERROR MESSAGE 


sRE TURN 


Ce ae Rn enotenoenanngeossensanse 


s@TEST 4 
8 8 990060086 00066060606660866466466666666664646606666666666660666666668086866 


TST4: 


3 
TSFe: 


18; 
FIN2: 


8 
TSFPS: 


TEST CFCC 


STESTN 


00177776,R1 


it 


#177760, 
R4 RI 


.sNCPEMENT TEST NUMBER 
sCLEA2 TRAP FLAG 
sSETUP DATA TO BE LOADED 
sLOAD © PS AND COPY CONDITION CODES TO PS 
sSETUP DATA TO BE LOADED 
sLOAD FPS AND COPY CONDITION CODES TO PS 
sSETLP DATA TO BE LOADED 
sLOAD FPS AND COPY CONDITION CODES TO PS 
sSETUP DATA TO BE L 

sLOAD FPS AND copy” CONDITION CODES TO PS 


sLOAD FP 
:COPY CONDITION CODES TO PS 
sSAVE PS TO R1 

sMASK QUT UNWANTED BITS 

sWAS CONDITION CODE BITS TRANSFERRED 
sCORRECTLY 


rYES GO ON 

ALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


3NO GO TO ERROR 
3;RE TURN 


8 5 OOO8 89869886 6666060606868606008686060660060066600000000060000008000008 


TEST SETF, SETD, SETI, SETL 


SF FFSSOSHSOSESSSSSSHSSHSHEHSHSHHSSHHSESHSHESSSHSSSSSHESHHAOAAROBALEB2a 


;*TEST 


TST5: 


STESTN 
BeOTRPFLG 
#200 ,R4 


s INCREMENT TEST NUMBER 
sCLEAR TRAP FLAG 
:SETUP DATA TO BE LOADED 


DS 


RDJTIA. MAE > 1 SMARALASSPACAP52>  IS-MARSB4 16:58. PAGE, 29.0 1 SETI, SETL 


005003 
170103 
005002 
010537 


000100 


004250 





LDEPS R4 
TF 
STFPS Ri 
CMP R1,40 
BEQ i$ 
ERROR 
. WORD 21 
. WORD FPPERR 
18; SETD 
STFPS Ri 
CMP R1,R4 
BEQ 2s 
ERROR 
. WORD 22 
. WORD FPPERR 
28: MOV @100,R4 
LOFPS R4 
SETI 
STFPS Ri 
CMP R1,00 
BEG 3 
ERROR 
. WORD 23 
.WORD FPPERR 
38: 
4%: 
t 
TSFP4; 


RAKE FD=0 


sSTORE FPS 

sIS FO*O 

sYES GO ON 

sALL ERRORS TO TRAP TO EMT VECTIR 
sUNIQUE ERROR NUMBER 


sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 


ON 
3; ALL or ime TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
+t DATA TO BE LOADED 
OAD FPS 


sALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 

sNO GO TO ERROR 


GO ON 
ao ERRORS TO TRAP TO EMT VECTOR 
ERROR NUMBER 


UNIQUE 
S ADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 


3 OOO0808646686 6006808468 60600060066660668006660060606600046000006000600800088 


TEST ILLEGAL OP CODES AND STST 


BF OOO 00065886800 66000668 646 66068006460080606868606600650000060060000006088 





s*TEST 6 
TST6: 
INC sTESTN 
CLR BOTRPFLG 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 8010, -¢ ) 
MOV ®ILLOP2,8010 
Dl; CLR RS 
LOFPS R353 
CLR Re 
MOV R5,ae02 


s INCREMENT TEST NUMBER 
;CLEAR TRAP FLAG 

sINIT OP 

:SAVE FP VECTOR 

3SETUP NE cT 

sSAVE TIME OUT VECTOR 
sSETUP NE cT 


:SETUP NEW VECTOR 

3 

:CLEAR FPS 

; 

;SETUP THE ILLEGAL INST 


SEQ 9029 


GLOBA 
KDJLIA 


AREAS 
.MAC 


MACY11 30AC 1052) 
15-MAR-84 15:51 


000167 


022716 
001403 
104000 
000026 


170010 
170013 
170077 


000010 
000004 
000244 


000104 
004252 


100000 


177644 


15-MAR-84 16: 
T6 


De: 


1$; 


2s; 


3$; 


TIMEOU: 





58 PAGE 30 

TEST ILLEGAL OP CODES AND S3TST 

.WORD 0O 

CFCC 

INC Re 

INC Re 

STFPS R1 

ERROR 

.WORD 25 

.WORD FPPERR 

CMP #170010,R5 

BNE 

on” #170013,R5 

CMP #170077 ,R5 

BNE 06 

BR 07 

INC RS 

BR 01 

MOV (SP)+,8010 

MOV (SP)+, 804 
FING 
003,(SP) 
18 
26 
FPPERR 
(SP)+,(SP)>+ 
Ri 
#100000 ,R1 
Bs 
27 
FPPERR 

CLR R4 

sTsT R4 

CMP @2,R4 

BNE S$ 

JMP 04 

ERROR 

WORD 30 

-WORD *FPPERR 
04 


ES 


3NO GO TO 


i; 
sMEMORY WORDS TO BE USED WITH 
sEXECUTION OF ILLEGAL OP CODE 


’ 
sSAVE FPS 

sALL. ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


3GO TO ERROR 


sCOMPUTE NEXT OP CODE 
; 


RESTORE VECTORS 


sDID TRAP OCCUR ON TEST INST 

sYES GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sNO GO TO ERROR 





sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 








sINT R4 TO A KNOWN STATE 
sSTORE FEC AT R4 

sIF THE DESTINATION MODE IS IMPROPERLY 
DECODED AN ODD ADDRESS TRAP TO 4 


TO 
:YES GO ON 
2ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 


sGO TO ERROR 


; THEN GO ON 


;ALL ERRORS TO TRAP TO EAT VECTOR 


GLOBAL. 


KDJLIA, 


AREAS 
MAC 


MACY11 seat 
15 -MAR - 84 


140000 


000010 


rs 


TEE GAL OP CODES AND STST 


Sf agse> 15 - a 16; 9B. ,PAGE 


. WORD 31 iNT ee ERROR NUMBER 
. WORD FPPERR ADDRESS OF ERROR MESSAGE 
sERROR BECAUSE OF TRAP TO 4 
RTT RE TURN 
3 
ILLOPe2: 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 32 sae e ERROR NUMBER 
. WORD FPPERR DORESS OF ERROR MESSAGE 
sERROR et CAUSE OF TRAP TO 10 
RTT sRE TURN 
FING; 
3 
TSFPS;: 


i SE RRAROAAAAEOEEAEEAERESESEDEREDEDAREDOEOEEEEDEDEEDAEDEEEEDOREEEESSE 
s@TEST 7 TEST FIO CINTERRUPT DISABLE BIT) 

3 § POORER OOEOOEEEEEOEEOEEO4E64OO4OO4666660666666666466660666668660086 
T 








INC $TESTN ; INCREMENT TEST NUMBER 
CLR SeTRPFLG sCLEAR TRAP FLAG 
MOV 80244, -( SP) ;SAVE FP VECTOR 
MOV @ILL,@0244 ;SETUP NEW VECTOR 
MOV #40000 ,R3 ;SETUP DATA TO BE LOADED 
LOFPS R35 sLOAD FPS, FID=1 
iste’ 170020 ; ILLEGAL FP INSTRUCTION 
STFPS Ri ;SEE IF ERROR WAS RECORDED IN FPS 
CMP #140000 ,R1 $ 
BEQ 1% sYES GO ON 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
WORD 33 sUNIQUE ERROR NUMBER 
-WORD FPPERR sADDRESS OF ERROR MESSAGE 
18: STST Rg ;SEE IF FEC=2 
CMP @2,R4 3 
BEQ 2s :YES GO ON 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
WORD 34 sUNIQUE ERROR NUMBER 
WORD FPPERR sADDRESS OF ERROR MESSAGE 
:NO GO TO ERROR 
23: MOV CSP )+, 80244 sRESTORE VECTOR 
3 
JP FINS 
; 
ILL: 
ERROR 2ALL ERRORS TO TRAP TO EMT VECTOR 
» WORD 35 :UNIQUE ERROR 
-WORD *FPPERR sADDRESS OF ERROR MESSAGE 
:FIO ERROR 
RTT ;RE TURN 
FINS: 
; 
TSFP6;: 


BE FSOSSESEHSESESSEEHSSESSOHHSSSHSSEHHAHKEHSNSHHESASESERATAARSRAEBAEALLA 


s*TEST 10 TEST LOD, STD FSRC AND FOST MODE 1 


SEQ 9031 


GS 











GLOBAL AREAS | MACY11 S0A(1052) 15-MAR-84 16: 3 
KOJI1A.MAC 15-MAR-84 15:51 tio *©'#BsP CBB. 81m Fsrc AND FOST MODE 1 SEQ 0052 

1391 3 FAHASAAEAHEAESEREREDEAEEEEEEAAEAAEEHAEAEEEAORMAEEEEEEEEEEABEERKEES 

1392 004554 TST10: 

1393 004554 005267 174224 INC $TESTN ,INCREMENT TEST NUMBER 

1394 004560 005037 002122 CLR QO TRPFI.G ;CLEAR TRAP FLAG 

1395 004564 005004 CLR R4 sSETUP TO LOAD DATA 

139% 004566 170104 LOFPS R4 ;CLEAR FPS 

1397 004570 170011 SETD sSET FD TO 1 

1398 004572 013746 000004 MOV @04, -(SP) ;SAVE TIMEOUT VECTOR 

1399 004576 012737 004750 000004 MOV OTSF6, 804 sSETUP NEW VECTOR 

1400 004604 012704 004740 MOV @TSEDAT ,R4 sSETUP POINTER TO DATA 

1401 004610 172414 LOD (R4),ACO ; TEST INSTRUCTION 

1402 004612 020427 004740 CMP R4, OTSEDAT sIS R4 CORRECT 

1403 004616 001403 BEQ 18 sYES GO ON 

1404 004620 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

1405 004622 000036 .WORD 36 ;UNIQUE ERROR NUMBER 

1406 004624 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 

1407 sNO GO TO ERROR 

1408 004626 012701 004730 1$: MOV @TS6DA,R1 ;SETUP POINTER TO DATF 

1409 004632 012703 000004 MOV 04,R3 sINIT COUNTER 

1410 004636 022421 28: CMP (R4)+,(R1)> S SOURCE DATA ALTEED 

1411 004640 001403 BEQ 33 NO GO ON 

1412 004642 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1413 004644 000037 .WORD 37 sUNIQUE ERROR NUMBER 

1414 004646 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 

1415 sYES GO TO ERROR 

1416 004650 077306 3$: SOB R3.2% sARE WE DONE 

1417 004652 012704 001136 MOV @TSTLOC,R4 ;SETUP POINTER FOR DATA 

1418 004656 174014 STD CRA ; TEST INSTRUCTION 

1419 004660 020427 001136 CMP R4, OTSTLOC 31S R4 CORRECT 

1420 004664 001403 BEQ as sYES GO ON 

1421 004666 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

1422 004670 000040 -WORD 40 sUNIQUE ERROR NUMBER 

1423 004672 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 

1424 :NO GO TO ERROR 

1425 004674 012701 004730 43: MOV @TS6DA,R1 ;SETUP POINTER TO DATA 

1426 004700 012703 000004 MOV 04, s INIT 

1427 004704 022421 58: CMP (R4)>+,CR1)+ 31S DESTINATION DATA CORRECT 

1428 004706 001403 BEQ 63 sYES GO ON 

1429 004710 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

1430 004712 000041 -WORD 41 ;UNIQUE ERROR NUMBER 

1431 004714 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 

1432 :NO GO TO ERROR 

1433 004716 077306 6$: 508 R3,53 :ARE WE DONE 

1434 004720 012637 000004 MOV (SP)+,@04 :RESTORE VECTOR 

1436 3 

1437 004724 000167 000030 JMP FING 

3 

1439 004730 177777 TS6EDA: .WORD 177777 

1440 004732 000000 »WORD 000000 

1441 004734 052525 . WORD 

1442 004736 125252 -WORD 125252 

1443 004740 177777 TS6DAT: ,WORD 177777 

1444 004742 000000 -WORD 000000 

1445 004744 052525 .WORD 052525 

1446 004746 125252 .WORD 125252 


GLOBAL 
KDJLIA. 


AREAS 
MAC 


MACY11 30A( 1052) 
15-MAR-84 15:51 


000167 


cadihianes 16:98... 


tsre; 


FING: 
F 
TSFP?; 


ERROR 


* WORD 
. WORD 


RTT 


HS 


42 
FPPERR 


PAGE 33 
CBD, STD FSRC AND FDOST MODE 1 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 


DRESS OF ERROR MESSAGE 


3 AD 
1000 ADDRESS TRAP 
sRETURN 


§ ESSSAAARABAAAEAAESAEEEAEEAEEEEHEEEEAOAREEEEAREREEEEHEEEDAEEEREDEES 


s*TEST 11 


TSTLi: 


PEP EEL: 


m 
a 


G3 3 sggangane 


TEST LOD, LOF FSRC MODE O 


& ESFAAAAAASAEAAEAEAEAAREEAEAEAEAEEEEEEAOEEOEEAEEEAEEOEEEEEEEAEAEEES 


sTESTN 
BOTRPFLG 


1),AC1 
AC1.ACO 
eTSTLOC,R4 
ACi,(R4) 
PC, CHECK? 
eTS7DA4,R4 
acoCRiS 
PC CHECK? 
(SP)+, 804 
FIN? 
04,R3 
CR4A)> CRI )o 
CHK7 


43 
FPPERR 


s INCREMENT TEST NUMBER 
sCLEAR TRAP FLAG 


CTOR 

sSETUP POINTER TO DATA 
sCLEAR ACO 
sSETUP POINTER TO DATA 
sLOAD AC1 WITH DATA 
3 TEST INSTRUCTION 
3 
sCHECK IF AC1 HAS BEEN ALTER®D 
3 

;SETUP POINTERS FOR DATA 
8 
sCHECK IF ACO RECEIVED CORRECT DATA 
i 
;SETUP POINTER TO DATA 
3 ACi 
2;SET FD«0 
3; TEST INSTRUCTION 
:SET =i 
sSETUP POINTER TO DATA 
sCHECK IF AC] HAS BEEN ALTERED 
i 
;SETUP POINTERS FOR DATA 

: 
;CHECK IF ACO HAS CORRECT DATA 


+ 
sRESTORE VECTOR 


NUMBE 
sADDRESS OF ERROR MESSAGE 


sNO GO TO ERROR 


SEQ 0033 


GLOBAW 


AREAS 


KDJ1L1A.MAC 


MACY11 30A(1052) 15-MAR 
i5-M R da 18:41 


173564 


Tit °° Bsr? ABB Stor src MODE o 


CHK7; 


; 
TSF?7: 


3 

TS7DA1: 
TS7DA2: 
TS70A4; 


FIN?: 
3 
TSFP1O;: 


SOB 
RTS 


LS 


R3,CHEK7 
PC 


44 
FPPERR 


s;ARE WE DONE 
sYES RETURN 


sALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 

s00D ADDRESS TRAP 
sRETURN 


8 8 O2860066848466668486660460 60666680646 666664666666666066666666666666466466 


s*TEST 12 


B 3 9O8090808604664684684660066006068046066066664666666606646604566666664660866 


TSTl2: 


CLR 


TEST STD, STF FOST MODE 


$TESTN 
AOTRPFLG 


, CHECIO 
#TS$1001,R1 
R1), ACL 
ACL, ACO 

@TSTLOC,R4 
AC1,(R4) 

PC, CHECLO 
#TS1004,R4 


0 


OR 
sSETUP POINTER TO DATA 
;CLEAR ACO 
;SETUP POINTER TO DATA 
:LOAD ACL WITH DATA 
; TEST INSTRUCTION 
3 
;CHECK IF AC] HAS BEEN ALTERED 
; 
;SETUP POINTERS FOR DATA 
3 
;CHECK IF ACO RECEIVED CORRECT DATA 
3 
;SETUP POINTER TO DATA 
sCLEAR ACL 


:SET FD=1 
sSETUP POINTER TO DATA 
;CHECK IF AC] HAS BEEN ALTERED 


s 
;SETUP POINTERS FOR DATA 


St 7 0034 


J5 


GLOBAL AREAS MACY11 a i5-MAR-84 16:58 PAGE 35 SEQ 0035 
KDJ11A.MAC 1S-MAR-84 15:51 Tie TEST STO, STF FDOST MODE O 
1559 005344 012701 001136 MOV @TSTLOC ,R1 ; 
1560 005350 174011 STD ACO,C(R1) sCHECK IF ACO HAS CORRECT DATA 
1561 005352 004767 000010 JSR PC ,CHECi0O i 
ore 005356 012637 000004 MOV CSP)+,a04 sRESTORE VECTOR 
1564 i 
uae 005362 000167 000062 JMP FIN1O 
; 
1567 005366 012703 000004 CHEC10: MOV 04 RS sINIT COUNTER 
1568 005372 022421 CH10: CMP CR4)+,CR1)+ sIS DATA OK 
1569 005374 001403 BEG CHK10 sYES GO ON 
1570 005376 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
1571 005400 000045 -WORD 45 sUNIQUE ERROR NUMBER 
1S72 005402 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
1573 sNO GO 10 ERROR 
1574 005404 077306 CHK10: SOB R3,CH10 sARE WE DONE 
rok 005406 000207 RTS PC sYES RETURN 
1577 005410 TSF10 
1578 005410 104000 RROR 3 ALL ye an TRAP TO EMT VECTOR 
1579 005412 000046 -WORD 46 sUNIQUE ERROR NUMBER 
1580 005414 002013 -WORD FPPERR s ADDRESS OF ERROR MESSAGE 
1581 ;000 ADDRESS TRAP 
ton 005416 000006 RTT : 
: 
1584 005420 000000 TSi0D1: .WORD 0 
1585 005422 000000 -WORD O 
1586 005424 000000 -WORD O 
1587 005426 000000 -WORD O 
1588 005430 177777 TSi0D2: .wORD 177777 
1589 005432 111236 -WORD 111236 
1590 005434 100045 -WORD 1 5 
1591 005436 003651 -WORD 3651 
1592 005440 000000 TS1004: .WORD 0 
2593 005442 000000 -WORD O 
1594 005444 100045 -WORD 100045 
1595 005446 003651 -WORD 3651 
1596 005450 FINIO: 
1597 : 
1598 005450 TSFP11: 
1599 $$ 9886488 606686606500006060600060066600000000600000000000000000008 
1600 s*TEST 13 TEST FOST SINGLE OPERAND MODE 0 
1601 5 5 9O8060840466586606660606056000600660000606000000000000000000000086 
1602 005450 TST13: 
1603 005450 005267 173330 INC STESTN s INCREMENT TEST NUMBER 
1604 005454 005037 002122 CLR BeTRPFLG ;CLEAR TRAP FLAG 
1605 005460 012704 000200 MOV 0200 ,R4 :SETUP TO LOAD FPS 
1606 005464 1701064 LOFPS RG :SE =i 
1607 005466 012704 0©v5550 MOV #TS1101,R4 sSETUP POINTER TO DATA 
1608 005472 172414 LOO (R4),ACO sLOAD ALL ONES TO ACO 
1609 005474 170400 CLRO ACO : TEST INSTRUCTION 
1610 005476 170203 STFPS RS :;GET FPS 
1611 005500 012704 001136 MOV @TSTLOC ,R4 : 
1612 005504 174014 STO ACO, (R4) :CHECK ACO FOR ALL ZEROES 
1613 005506 012701 000004 MOV 04,R1 SINIT COUNTER 


1614 005512 022427 000000 1$; CMP CR4)+, 00 : 


KS 





GLOBAL AREAS MACY11 30AC1052) 15-MAR-84 16; PAGE 3 
KDJLIA.MAC 15-MAR-84 15:51 T13 TEST FOST SINGLE OPERAND MODE 0 SEG 9056 
1615 005516 001403 EQ 2s 30K GO ON 
1616 S520 104000 ERROR SAL ERRORS TO TRAP TO EMT VECTOR 
1617 005522 000047 .WORD 47 sUNIQUE ERROR NUMBER 
1618 005524 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
1619 sNO GO 10 ERROR 
1620 005 077107 2s: SOB R1,1$% sARE WE DONE 
1621 005530 020327 000204 CMP R3, 0204 sCHECK FPS 
1622 SS 001403 EQ 3$ 30K GO ON 
1623 005536 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
1624 005540 000050 .WORD 50 sUNIQUE ERROR NUMBER 
1625 005542 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
1626 ;NO GO 10 ERROR 
1627 005544 3$; 
1628 
1629 ; 
ery 005544 000167 000010 JMP FINiI1 
; 
1632 005550 177777 TS1101: .WORD 177777 
i633 005552 177777 -WORD 177777 
1634 005554 177777 » WORD 177777 
1635 005556 177777 -WORD 177777 
1636 005560 FINI1: 
1637 3 
1638 005560 TSFPi2: 
1639 b §2OO80066048666466666066606666066646666666686666666666646066466466464666668 
1640 s@TEST 14 TEST FOST SOP MODE O WITH ILLEGAL AC7 
1641 5 $99000006000660660606060466606666666666666006606060606606066000068666606666 
1642 005560 TST14; 
1643 005560 005267 173220 s INCREMENT TEST NUMBER 
1644 005564 005037 002122 
1645 005570 012703 040200 sSETUP TO LOAD FPS 
1646 005574 170103 sSET FID-1. AND FD=-1 
1647 005576 170407 ; TEST INSTRUCTION 
1648 005600 170204 sGET F 
1649 005602 170305 sGET FEC 
1650 005604 022704 140200 3IS FPS CORRECT 
1651 005610 001403 sYES GO ON 
1652 005612 104000 ;ALL ERRORS TO TRAP TO EMT VECTOR 
1653 005614 000051 sUNIQUE ERROR NUMBER 
1654 005616 002013 sADDORESS OF ERROR MESSAGE 
1655 :NO GO TO ERROR 
1656 005620 022705 000002 1%; :IS FEC CORRECT 
1657 005624 001403 ;YES GO ON 
1658 005626 104000 ;ALL ERRORS TO TRAP TO EMT VECTOR 
1659 005630 : ERROR 
1660 005632 002013 sADDRESS OF ERROR MESSAGE 
1661 :NO GO TO ERROR 
1662 005634 2s: 
1663 
1664 ; 
1665 005634 TSFP1S; 
1666 5 $998O660666060606060060606006046060600600606006000000000000000 000000000 
1667 s#TEST 15 TEST FOST SOP MODE 1 
1668 Ehidihhi be bbhbobh bobo Lorri terri titi titi ii ti trtiti tt tit ttt TT TTtTtTT TT 
1669 005634 TST15: 
1670 005634 005267 173144 INC $TESTN :; INCREMENT TEST NUMBER 


GLOBAL 


AREAS 


KDJ11A.MAC 


MACY11 30A( 1052) 
15 -MAR -84 


013746 


012701 
022227 
001403 
104000 
000054 
002013 


077107 


002013 


0050 
012702 


13:32 


000004 
005774 000004 


002122 
000200 


000004 
0011356 
177777 


001136 


001136 


000010 


172774 
000004 


006150 
002122 
000200 


15 -MAR -84 
TiS 


100$: 


3$: 


3 
FINiS: 
5 
TSFP14; 


=. 


16:58 PAGE 37 


TEST FOST SOP MODE 1 


z 3 2 §520%8 


zz 
=~ 
_4 


804, -(SP) 
OTSF13,804 
BeOTRPFLG 
#200 ,R2 
R2 


04 ,R5 
@TSTLOC,R4 
0177777,CR4)> 
RS, 100% 
@TSTLOC ,R2 
(R2) 

R3 
R2,@TSTLOC 

i$ 


53 
FPPERR 
64 ,R1 
CR2)+,00 
3$ 

54 
FPPERR 
Ri,2s 
R3,4204 
at 

55 
FPPERR 
(SP)+,804 


FINIS 


56 
FPPERR 


sYES GO 


sNO GO TO 


sSAVE TIMEOUT VECTOR 


sSETUP TO LOAD FPS 
sSET FD-1 
sINIT COUNTER 
sSETUP POINTER TO TEST LOCATION 
sMOVE ALL ONES TO TEST LOCATION 
ARE WE DONE 

sSETUP POINTER TO DATA 
s TEST T INSTRUCT ION 


;GET 
sWAS R2 ALTERED 
sNO GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
to ERROR 
sINIT COUNTER 
sCHECK LOCATION FOR O 
s0K GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIGUE ERROR NUMBER 
yy OF ERROR MESSAGE 


7 ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
; ADDRESS OF ERROR MESSAGE 


sNO GO TO ERROR 


sRESTORE VECTOR 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


3000 ADDRESS TRAP 
;RETURN 


5 $ 449068066 40466466066646466666006606 660600600 466006000400000000200000008 


s*TEST 16 


TST1i6: 


MOV 
MOV 
CLR 
MOV 


TEST FOST SOP MODE 2 


£8 498860645 064646640666666460660006 6604660460 60040608060000000000000000000400 


s INCREMENT TEST NUMBER 


sSETUP TO LOAD FPS 


SEQ 9037 


GLOBAL 


AREAS 


KDJ11A.MAC 


MACY11 30AC 1052) 
15-MAR-84 15:51 


170102 
012705 


000004 
001136 
177777 


001136 


001146 


001136 


000010 


172620 
000004 
006370 


002122 
000200 


000011 
001136 


15-MAR -84 
T16 


100$; 


1$: 
2s: 


3$: 


3 
FINI4; 


’ 
TSFPi5: 


16:58 PAG 


MS 


E 368 
TEST FOST SOP MODE 2 


LOFPS 
MOV 


Re 

04,R5 

@TSTLOC ,R4 

0177777,CR4)+ 
100$ 


RS, 
@TSTLOC ,R2 
C(R2)+ 


R3 
jaa 


57 

FPPERR 
@TSTLOC Re 
04 ,R1 
CR2)+,00 
3$ 

60 

FPPERR 


Ri,2$ 
R3, 0204 
as 


61 
FPPERR 
CSP)+,@04 


sNO GO TO ERROR 
3; ARE 


;SET FD#1 
s INIT COUNTER 
sSETUP POINTER TO TEST LOCATION 
sMOVE ALL ONES TO TEST LOCATION 
sARE WE DONE 

sSETUP POINTER TO DATA 
5 TEST INSTRUCTION 


;GET F 
sIS R2 CORRECT 
sYES GO ON 
s ALL re TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
Woy OF ERROR MESSAGE 


sSETUP POINTER TO DATA 
s INIT COUNTER 

sCHECK LOCATION FOR © 

sYES GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sNO GO TO ERR 


ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 





sNO GO TO ERROR 


sRESTORE VECTOR 


sALL ERRORS TO TRAP TO EMT VECTOR 
;UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


3000 ADDRESS 


é 


8 8 998808864664664646644660006608 0606060660646 66060000000000046000800202888 
3 


s#TEST 17 
S$ %OO$066664004604666666046600666664606660664666 400600460006 0046000000800086 


TST1i7: 


MOV 
MOV 
CLR 


MOV 
LOFPS 
MOV 


MOV 


TEST FDST SOP 
tTESTN 
OTSF15, 004 
GeTRPFLG 
#200,R2 

R2 


09, RS 
@TSTLOC,R4 


s INCREMENT TEST NUMBER 
sSAVE TIMEOUT =—— 


COUNTER 
;SETUP POINTER TO TEST LOCATION 


SEQ 9036 


GLOBAL 


AREAS 


KDJ11A.MAC 


MACY11 30AC 1052) 
15-MAR-84 15:51 


012724 


012702 
022227 
001403 
104000 
000064 
002013 


012701 
022227 
001403 
104000 
00006 

002013 
077107 


000066 
002013 


177777 


001150 
001136 


001140 
001136 


001150 


000004 
177777 


000010 


15-MAR -84 
T17 


001136 


100$: 


1$; 


63: 


$ 
FINLS: 


3 
TSFP16;: 


NS 


16:58 PAGE 39 


TEST FOST SOP MODE 3 


g20%26 § 


3 8 g5 2535 


TE 


pe] 
~ 
~ 


RS, 100% 
erate at Ree eee 


0177777,CR4)+ sINIT 7EST LOCATION 
sARE WE DONE 

sINIT TEST LOCATION 
@TSTLOC, sSETUP POINTER TO DATA 
@CR2)+ : TEST INSTRUCT ION 


R3 ;GET 
R2,@TSTLOC+2 sIS R2 CORRECT 
1$ ;YES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
63 sUNIQUE ERROR ” 
FPPERR sADDRESS OF ERROR MESSAGE 
sNO GO 10 ERROR 
@TSTLOC Re ;SETUP POINTER TO DATA 
CR2)+, @TSTLOC+12 :IS DATA CORRECT 
2s ;YES GO ON 
3; ALL ry: a” TRAP TO EMT VECTOR 
64 sUNIQUE ERR 
FPPERR sADDRESS OF OERROR MESSAGE 
sNO GO TO ERROR 
04 ,R1 sINIT COUNTER 
CR2)+,0177777 :IS LOCATION ALL ONES 
43 sYES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
65 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
R1,3% sARE WE DONE 
64 ,R1 sINIT COUNTER 
CR2)+,00 :IS LOCATION O 
6% sYES GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
66 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
:NO GO TO ERROR 
R1,53 sARE WE DONE 
R3, 0204 ;CHECK FPS 
;0K GO ON 
;ALL ERRORS TO TRAP TO EMT VECTOR 
67 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
sNO GO TO 
(SP)+, 904 sRESTORE VECTOR 
FINIS 
;ALL ERRORS TO TRAP TO EMT VECTOR 
70 :;UNIQUE ERROR NUMBER 
FPPERR bey: gee OF ERROR MESSAGE 
:000 ADDRESS 7 
;RE URN 


SEQ 0039 


GLOBAL 
KDJLIA, 


AREAS 


MAC 


006570 


022227 


weer ih 3SOAC 1052) 
15-MAR-84 15:51 


172400 
000004 


006562 
002122 
000200 


000010 
001136 
177777 
001146 


001136 


000004 
177777 


000010 


15 -MAR - 84 
T20 


16:58 PAGE 4 


b4 


40 
TEST FOST SOP MODE 4 


a sf TEE PaAT Ge teen nt teeensOsnenseesenossceens 


s*TEST 20 


TST20; 


1008: 


58: 





TEST FOST SOP MODE 4 


EEFORHAAAHHEEEHEHOEREEEEEHEEEEEEEEEEHEEEEEEEEEEEEEHEEEEEOEEDOEEDEOES 


sTESTN 

804, -(SP) 
eTSF 16,904 
BOTRPFLG 
#200 ,R2 

Re 

06. RS 
@TSTLOC ,R4 
0177777,CR4)> 
RS,1008 
@TSTLOC+10,R2 
-(R2) 

RS 
R2,@TSTLOC 

18 

71 

FPPERR 


64 Ri 
(R2)> 20 
33 


72 

FPPERR 

Ri,28 

04 ,R1 
CR2)>,0177777 
58 


73 
FPPERR 


R1,48 
R3, 0204 
6% 


74 
FPPERR 
(SP )+, 804 


FINIG 


75 
FPPERR 


s INCREMENT TEST NUMBER 


fp LOAD FPS 


sSET F 

sINIT COUNTER 

sSETUP POINTER i TEST LOCATION 
sINIT TEST LOCATION 

SARE WE DONE 


sSETUP POINTER TO DATA 
Pe INSTRUCT ION 


5 
sIS R2 CORRECT 

sYES GO ON 

sALL ERRORS TO TRAP TO EMT VECTOR 

sUNIQUE ERROR NUMBER 

oy OF ERROR MESSAGE 






sALL ERRORS TO TRAP 10 EMT VECTOR 
S UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 

3NO GO TO ERROR 
3 WE DONE 

s INIT COUNTER 

3IS LOCATION UNCHANGED 

;YES GO ON 

2ALL ERRORS TO TRAP TO EMT VECTOR 

sUNIQUE ERROR NUMBER 





ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
3NO GO TO ERROR 
sRESTORE VECTOR 


2,ALL ERRORS TO TRAP TO EMT VECTOR 
:UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
3000 ADDRESS TRAP 
;RE TURN 


SEQ 9040 


GLOBA:. 


AREAS 


KDJLLA.MAC 


006572 
006572 


MACY11 30AC 1052) 
15-MAR-84 15:51 


022227 


136 
177777 
001150 
001140 


001136 


001150 


000004 
177777 


000204 


C4 


15S-MAR-84 16:58 PAGE 41 
T20 TEST FOST SOP MODE 4 
; 
FINI6: 
4 
TSFP1?: 


001136 


BESSSSHAAAAAHEAEEAEEEEAAEEEEEEEEEEEEEEEEEEEEEHEEEEHEEEEEOEEOEDEDELES 








s@TEST 21 TEST FOST SOP MODE 5 
BESSOAHASASARADEHESADEEEEESEDESEEEEEEAEHEREEEEOEEEREEEEEEEEDEEEESES 
TSTel: 
INC s$TESTN 1s INCREMENT TEST NUMBER 
MOV 804, -( sSAVE TIMEOUT VECTOR 
MOV OTSF17,804 sSETUP NEW VECTOR 
CLR BeTRPFLG ;CLEAR TRAP FLAG 
MOV @200 ,R2 sSETUP . LOAD FPS 
LOFPS R2 3SET 
MOV 9, ,.R5 VINIT COUNTER 
MOV @TSTLOC ,R4 sSETUP POINTER Le TEST LOCATION 
1008; MOV «Yeas CRG) sINIT TEST LOCATION 
So8 R5,1 sARE WE DONE 
MOV aTsteoe +12. BeTSTLOC TU TEST LOCATION 
MOV @TSTLOC+2,R2 SETUP — TO DATA 
CLRO @-C(R2) 5 rest pINSTRUCTI 
STFPS RS sGET 
CMP R2,e@TSTLOC > 1s R2 CORRECT 
BEQ is sYES GO ON 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
WORD 76 sUNIQUE ERROR NUMBER 
WORD FPPERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
1%: CMP CR2)+, @TSTLOC+12 3IS DATA CORRECT 
BEQ ot sYES GO ON 
ERROR 2sALL ERRORS TO TRAP TO EMT VECTOR 
WORD 77 sUNIQUE ERROR NUMBER 
. WORD FPPERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
28; MOV #4 ,R1 sINIT COUNTER 
38: Cup (R2)°,@177777 3IS LOCATION ALL ONES 
4t rT GO ON 
L ERRORS TO TRAP TO EMT VECTOR 
WORD 100 NIQUE ERROR NUMBER 
WORD FPPERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
4$; $08 R1,38 3 
MOV 04 Ri s INIT COUNTER 
58: CMP CR2)+,00 3IS LOCATION O 
6EQ 6% Pg GO ON 
ERROR L ERRORS TO TRAP TO EMT VECTOR 
WORD 101 NIQUE ERROR NUMBER 
WORD FPPERR sADDRESS OF ERROR MESSAGE 
sNO GO TO ERROR 
6%: $08 R1,5$ :ARE WE DONE 
CMP R35, 0204 sCHECK FPS 
BEQ 78 30% GO ON 
ERROR :;ALL ERRORS TO TRAP TO EMT VECTOR 
.WCRD 102 sUNIQUE ERROR NUMBER 
.WORD FPPERR :ADDRESS OF ERROK MESSAGE 


sNO GO TO ERROR 


SEQ 9041 


D4 





r A » » 3 a “ 
ROSETR.ARE*? Ss "ARAtagSPBCAP52)? IS-MARSBS 16:58. PAGE L42 06 mone 5 SEQ 0042 
1954 006766 012637 000004 7$: MOV (SP)+, 904 ;RESTORE VECTOR 

1953 ; 

1954 006772 000167 000010 JMP FINL? 

: 

1956 006776 1SF17: 

1957 006776 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
1958 007000 000103 -WORD 103 ;UNIQUE ERROR NUMBER 

1959 007002 002013 "WORD FPPERR tADDRESS OF ERROR MESSAGE 

1960 000 ADDRESS 1 

1961 007004 000006 RTT ita” 

1962 : 

1963 007006 FINL?: 

1964 3 

1965 007006 TSFP20: 

1966 3 S PEOAASAAAAASESAOEESESEEASEEEEEESEEEEEOEEEEAEEEEOEEEOEOEHEEEEEEBES 

1967 :aTEST 22 TEST FOST SOP MODE 6 

1968 Jisen hase enonenconncessonsssssnsesssosescoosossaneosoosoosocoece 

1969 007006 TST22: 

1970 007006 005267 171772 INC STESTN ;INCREMENT TEST NUMBER 

1971 007012 005037 002122 CLR BOTRPFLG ;CLEAR TRAP FLAG 

1972 007016 013746 000004 MOV 904, -(SP) ;SAVE TIMEOUT VECTOR 

1973 007022 012737 007176 000004 MOV OTSF20, 904 ;SETUP NEW VECTOR 

1974 007030 012702 000200 @200,R2 sSETUP TO LOAD FPS 

1975 007034 170102 LOFPS R2 sSET FO*1 

1976 007036 012705 000010 MOV 08. RS sINIT COUNTER 

1977 007042 012704 001136 MOV eTSTLOC,.R4 ;SETUP POINTER TO fest LOCATION 
1978 007046 012724 177777 1008: MOV 0177777.(R4)> INIT TEST LOCATI 

1979 007052 077503 SOB R5, 1008 ;ARE we DONE 

1980 007054 012702 001137 MOV OTSTLOC+1,R2 sSETUP POINTER TO DATA 
1981 007060 170462 000007 CLAD =-_- 7(R2) ; TEST INSTRUCTION 

1982 007064 170203 PS soORS ;GET FPS 

1983 007066 020227 001137 R2, OTSTLOC>1 31S R2 CORRECT 

1984 007072 001403 18 :YES GO ON 


sALL ERRORS TO TRAP TO EMT VECTOR 
















1986 007076 000104 WORD 104 sUNIQUE ERROR NUMBER 

1987 007100 002013 -WORD FPPERR s ADDRESS OF ERROR MESSAGE 

1988 sNO GO TO ERROR 

1989 007102 012702 001136 1%; MOV @TSTLOC ,R2 sSETUP POINTER TO DATA 

1990 007106 012701 000004 MOV 04,R1 : sINIT COUN 

1991 007112 022227 177777 2s: Chup CR2)+,@177777 3IS DATA CORRECT 

1992 007116 001403 BEQ 3% :YES GO ON 

1993 007120 104000 ERROR sALL ERRORS TO ie TO EMT VECTOR 

1994 007122 000105 -WORD 105 SUNIQUE ERROR 

1995 007124 002013 »WORD FPPERR sADDRESS OF ERROR MESSAGE 

1996 3NO GO TO ERROR 

1997 007126 077107 3%; $08 Ri,2s ‘ 

1996 007130 012701 000004 MOV o4,R1 sINIT COUNTER 

1999 007134 022227 000000 4%; CMP (R2)+, 00 :IS DATA CORRECT 

2000 007140 001403 BEQ S$ sYES GO ON 

2001 007142 104000 ERROR 3 ALL ERRORS TO Sa TO EMT VECTOR 
007144 000106 -WORD 106 sUNIQUE ERROR 

2003 007146 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 

2004 3NO GO TO ERROR 

2005 007150 077107 5$: bon R148 


;ARE WE DONE 
2006 007152 020327 000204 R3, 0204 :IS FPS CORRECT 


GLOBAL 


AREAS 


KDJ11A.MAC 


MACY11 30A 
15 -MAR -84 


077107 
022227 
001403 
104000 


171572 
002122 
000004 


007420 
000200 


000010 
001136 
177777 


001136 


001141 
000005 


001141 


001136 


001136 


001146 


3 
FIN2O: 


° 
TSFP21: 


BEQ 

ERROR 
. WORD 
. WORD 


MOV 


JMP 


cE 4 


i5s51 > ARTES 16: FBC TPPBET “Sop move 6 


6% 


107 
FPPERR 


sYES G 


O ON 
sALL gr TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sNO GO 10 ERROR 


(SP)+,804 


FIN2O 


110 
FPPERR 


sRESTORE VECTOR 


sALL ERRORS TO —, TO EMT VECTOR 
sUNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 


s000 ADDRESS TRAP 
sRE TURN 


8 3 9OO808006866060060660606066064666666666666666666666666666066666066666666 


s*TEST 23 


8 89% 0800066060 006660606666606664666664666666666666666606666666066466666 


TST23: 


1008: 


1%: 
23: 


3%; 


oa 


g588 553 


i — 


TEST FOST SOP MODE 7 


STESTN 
BOTRPFLG 
804, -(SP) 
@TSF 21,904 
#200 ,,R2 













@TSTLOC RE 
17777 (R4)> 
Sree tensrer-te 


a 
R2,eTSILOC+S 
is 

111 

FPPERR 
oe 
o4,R1 

(R2)+ 00 


lie 
FPPERR 


Ri,2s 
lil allah 


fe ge og NUMBER 


a 
s 


3 =i 
8 
sSETUP POINTER TO TEST LOCATION 
sINET TEST LOCATION 
WE DONE 








SINIT TEST LOCATION 


7ALL ERRORS TO TRAP TO EMT VECTOR 
TUNIQUE ERROR NUMBER 

:ADDRESS OF ERROR MESSAGE 

SETUP POINTER TO DATA 

s INIT COUNTER 

:IS DATA CORRECT 

sYES GO ON 

2;Q€LL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR 3 

sADDRESS OF ERROR MESSAGE 








iNO GO TO ERROR 
ARE 


’ WE DONE 

3IS DATA CORRECT 

:YES GO ON 

;ALL ERRORS TO TRAP TO EMT VECTOR 


SEQ 9043 


GLOBAL 


AREAS 


KDJ11A.MAC 


2063 
2064 


MACY11 30A( 1052) 
15-MAR - 84 


000115 
002013 


012701 


15:51 


000005 
177777 


000204 


000010 


171350 
002122 
000004 


007606 
000200 
000010 
001136 
177777 
001146 
001136 
001136 
000004 
000000 


15 -MAR - 84 
Tes 


001136 


4$; 
5$: 


6$: 


3 
FIN21: 


TSFP22; 


4 


10 8 PP BET gop MoDE 7 


1135 
FPPERR 


sUNIQUE ERROR NUMBER 
s ADDRESS OF ERROR MESSAGE 


sNO GO TO ERROR 


03,R1 
CR2)+,0177777 
6$ 


114 
FPPERR 


sINIT COUNTER 
sIS DATA CORRECT 
S GO ON 


sYE 
SALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

‘ADDRESS. OF ERROR MESSAGE 


sNO GO 10 ERROR 


R1,5$ 
R3, 0204 
7$ 


115 
FPPERR 


s OK ON 
SALL rye TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


;NO GO TO ERR 


CSP )+,804 


FIN21 


116 
FPPERR 


OR 
sRESTORE VECTOR 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIGUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


:000 ADDRESS TRAP 
;RETURN 


5 $99 0000000006000060600600300606606600660600600000600606000000060046068606 
s*TEST 24 TES GR7 


5 82948886086 600604660688000060660660606066064666606606606606060606008080086 


TST24: 


1008; 


1$; 


INC 
CLR 


T SOP MODE 5 


STESTN 
BOTRPFLG 
6 -( SP) 


8O4 

OTSF 22,004 
#200 ,Re 
Re 


eTSTLOC,R4 
@177777.(R4)> 

R5, 1008 
STSTLOC+10,@eTSTLOC 
geTSTLOC 

@TSTLOC,R2 

04,R1 

(R2)+,00 

28 


117 
FPPERR 


s INCREMENT TEST NUMBER 
;CLEAR TRAP 

; SAVE TIME OUT VECTOR 
sSETUP NEW VECTOR 
:SETUP TO LOAD FPS 
3;SET ¢ ton 


sINIT COUNTER 
SSE TUP POINTER TO TEST LOCATION 
oY TEST LOCATION 

WE DONE 


; ARE 
sINIT TEST LOCATION 
3: TEST INSTRUCTION 


sSETUP POINTER TO DATA 


077107 


077107 
020327 


ta ARE*S ss M ARAYA SQ8CRIE? 1 


000004 
177777 


000010 


171162 
002122 
000004 


007744 
000200 
000004 
001136 
177777 
171246 


000004 
001136 
000000 


000204 


2s: 
S$: 


4$; 


FIN22: 


8 
TSFP23: 


G4 


tO-MARB4 16° PBstPPBEr*@op move 3 GR7 


R1,1$ 

04,R1 
(R2)+,0177777 
4$ 


120 
FPPERR 
R1,3$ 
R3,0204 
5$ 

121 
FPPERR 
CSP )+,804 


FIN22 


122 
FPPERR 


sARE WE DONE 

sINIT COUNTER 

sIS DATA CORRECT 

sYES GO ON 

sALL_ ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sNO GO 10 ERROR 


sARE WE DONE 
‘en FPS 


GO ON 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sNO GO TO ERROR 


sRESTORE VECTOR 


3 ALL yo ~My TRAP TO EMT VECTOR 
sUNIQUE E 
s ADDRESS Ore ERROR MESSAGE 


:000 ADDRESS TRAP 


sRE TURN 


ae Se See Ee eee tee ee ne nenamnacocnsossons 


TEST FOST SOP MODE 6 GR7 


8 529280460 0864646868060066006066 6066606088 6666660660666600660660686066066066 
sT2s 


;@TEST 


1008: 


1%: 


consid | 





38 ™ 


ae 





04,R5 
@TSTLOC,R 
0177777, CRA) 

1008 
Tsivoc 


am 
eTSTLOC,R2 
(R2)+,00 
123 


FPPERR 


R1,1$ 
RS, 204 


COUNTER 
sSETUP POINTER TO TEST LOCATION 
sINIT TEST LOCATION 


é 
: TEST INSTRUCTION 
FPS 


: 
sINIT COUNTER 

:SETUP POINTER TO DATA 
3IS DATA CORRECT 
:YES GO ON 
2ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


3NO GO TO ERROR 


: 
:;CHECK FPS 


SEQ 9045 


007724 
007726 
007730 
007732 


007734 


007740 


007744 
007744 
007746 
007750 


007752 
007754 


007754 


010112 
010114 


001403 
104000 
000124 
002013 


012637 
000167 


104000 
000125 
002013 


000006 


000010 


171024 
002122 
000004 


010146 
000200 


000010 
001136 
177777 
001136 
171112 
001136 
000004 
000000 


001156 


000003 
177777 


001146 


H4 


MA os iS- " MAR-Ba issst oe tiie 738 -_ ‘PEs1” PBS 1*8 SOP MODE 6 GR7 


BEQ 3$ s0K GO ON 
ERROR SALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 124 sUNIQUE ERROR NUMBER 


. WORD FPPERR sADDRESS OF ERROR MESSAGE 
3NO GO 10 ERROR 
3$ MOV (SP)+,804 sRESTORE VECTOR 
: 
JMP FIN23 
; 
TSF23;: 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 125 sUNIQUE ERROR a 
. WORD FPPERR eee th OF ERROR MESSAGE 
3000 ADORESS T 
RTT 
FIN23: 
3 
TSFP24; 
3 i. SAET PART Gan tae Fan nnn eesecesesccess 
s*TEST 26 TEST FOST SOP MODE 7 GR7 
3 §99O0008600666666606660664664666666646666666666666666666666660466666 
TST26: 
INC sTESTN s INCREMENT TEST NUMBER 
CLR BOTRPFLG ;CLEAR TRAP FLAG 
MOV 804, -(SP) sSAVE TIMEOUT VECTOR 
MOV OTSF 24,804 sSETUP NEW VECTOR 
MOV @ »R2 sSETUP TO LOAD FPS 
LOFPS 3SET =i 
MOV sINIT COUNTER 
MOV @TSTLOC,R4 ;SETUP TEST LOCATION POINTER 
1008; MOV 1 eset CR4)> +~y TEST LOCATI 
SOB R5, WE DONE 
MOV eTSTLOC perstLoc-10 SINET TEST LOCATION 
CLAD STSTLOC+1 ‘eee ane INSTRUCTIONess 
STFPS AR3 3GET 
MOV canes RP SETUP POINTER TO DATA 
MOV @4,R s INIT TER 
18; CMP CRS)+, 00 31S DATA CORRECT 
BEQ :YES GO ON 
3N0, Go TO ERROR 
ERROR 2ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 126 S UNIQUE ERROR NUMBER 
. WORD sADDRESS OF ERROR MESSAGE 
23: $08 R118 ;ARE WE 
CMP (R2)+, OTSTLOC :IS DATA CORRECT 
BEQ 5$ ;YES GO 
1D. GO TO ERROR 
ERROR L ERRORS TO TRAP TO EMT VECTOR 
-WORD 127  OINTQUE ERROR NUMBER 
-WORD FPPERR :ADDRESS OF ERROR MESSAGE 
33: MOV 03,R1 sINIT COUNTER 
4$: CMP €R2)+, 0177777 :IS DATA CORRECT 
BEQ S$ :YES GO ON 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 130 sUNIQUE ERROR NUMBER 


SEQ 9046 


14 











GLOBAL AREAS MACY1i1 SOA O52) 15-MAR-84 16: 47 

KDJI1A.MAC 15-MAR-84° 15:51 736 $°' F851 °PBEr*Zop move 7 GR see 0007 
2231 010116 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 
2232 sNO GO TO ERROR 
2233 010120 077107 S$; SOB R1,4$ sARE WE DONE 
2234 010122 020327 000204 CMP R3,@204 sCHECK FPS 
2235 010126 001403 BEQ 6$ s0K GO ON 
2236 010130 104000 ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
2237 010132 000131 . WORD 131 sUNIQUE ERROR NUMBER 
2238 010134 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
2239 sNO GO TO ERROR 
ey 010136 012637 000004 6$; MOV (SP)+, 804 sRESTORE VECTOR 
2242 ; 
= 010142 000167 000010 JMP FIN24 

; 

2245S 010146 TSF24; 
2246 010146 104000 ERROR On ERRORS TO TRAP TO EMT VECTOR 
2247 010150 000132 . WORD 132 ee ERROR NUMBER 
2248 010152 002013 -WORD FPPERR ADDRESS OF ERROR MESSAGE 
2249 :000 wot TRAP 
2250 010154 000006 RTT 
2251 ; 
2252 010156 FIN24; 
2253 3 
2254 010156 TSFP2S: 
2255 8 5 O9200864680660606060660666066660660066660606066664660666606046606666006865 
2256 3@TEST 27 TEST CLAF 
2257 ene een eenannnseponesoneennsennnnenanosonnnseess 
2258 010156 TST2?: 
2259 010156 005267 170622 INC sTESTN s INCREMENT TEST NUMBER 
2260 010162 005037 002122 CLR @eTRPFLG sCLEAR TRAP FLAG 
2261 010166 005002 CLR Re ; SETUP TO LOAD FPS 
2262 010170 170102 LOFPS Re sSET FO-0 
2263 010172 012705 MOV ° sINIT COUNTER 
2264 010176 012704 001136 MOV @TSTLOC ,R4 sSETUP POINTER TO TEST LOCATION 
2265 010202 012724 177777 1008: MOV 0177777 ,CR4)>» sINIT TEST LOCATION 
2266 010206 077503 $08 RS, 1008 sARE WE DONE 
2267 010210 012702 001136 MOV @TSTLOC ,R2 sSETUP POINTER TO DATA 
2268 010214 170422 CR2)> : TEST INSTRUCTION 
2269 010216 170203 STFPS R sGET FPS 
2270 010220 020227 001142 CMP Re, @TSTLOC+4 3IS R2 CORRECT 
2271 010224 001403 BEG 1% :YES GO ON 
2272 3NO. GO TO 





ERROR 
sALL ERRORS TO TRAP TO EMT VECTOR 
ERROR NUMBER 












2274 010230 000133 133 

2275 010232 002013 FPPERR sADDRESS OF ERROR MESSAGE 

2276 010234 012702 001136 1%; MOV @TS1L0C Re : SETUP POINTER TO DATA 

2277 010240 012701 000002 MOV #2,R1 sINIT COUNTER 

2278 010244 022227 000000 2s; CMP (R2)+,00 irs DATA CORRECT 

2279 010250 001403 BEG 38 :YES GO ON 

2280 iNO, GO To ERROR 

2281 010252 104000 ERROR ;ALL ERRORS TO yn TO EMT VECTOR 
010254 000134 -WORD 134 SUNTQUE ERROR 

2283 010256 002013 -WORD *FPPERR sADDRESS OF ERROR MESSAGE 

2284 010260 077107 38: S08 mi. es s;ARE WE 

2285 010262 012701 000002 MOV 2oni : INIT COUNTER 


2286 010266 022227 177777 4%; CMP Cho) *,0177777 :IS DATA CORRECT 


GLOBAL 


KDJ11A, 


AREAS 
MAC 


010272 


010274 
010276 


010310 
010312 


MACY11 30A( 1052) 
15-MAR-84 15:51 


001403 


012702 


010660 
010710 


15 -MAR - 84 
T2?7 


S$: 


68: 


: 
TSFP26: 


16:58 PAGE 48 
TES 


T CLRF 
BEQ S$ 
ERROR 
-WORD 135 
.WORD FPPERR 
SOB R1,4% 
CMP R3,04 
BEQ 6$ 
ERROR 
.WORD 136 
-WORD FPPERR 


J4 


;YES GO ON 
sNO GO TO ERROR 
sALL gr TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
1 ye OF ERROR MESSAGE 
ARE WE DONE 
‘CHECK FPS 
;0K GO ON 
sNO, GO TO ERROR 
sALL ERRORS TO lg EMT VECTOR 


sUNIQUE ERROR NUMBE 
sADDRESS OF ERROR MESSAGE 


er a ee See eee a eneteansenconnsece 
TST 


;#TEST 30 


1?: 


2$: 


3$; 


Bee553 Be 


8353 
o ni 


552 


g 


TEST TSTF AND 


8 3 99O88640066400666666666660466466466066606666666666660666666466666666 


STESTN 


Se¢TRPFLG 


s INCREMENT TEST NUMBER 
;CLEAR TRAP FLAG 









sSET 

saaeTEST INSTRUCTIONe es 

3GET FPS 

S CHECK FPS 

30K GO ON 

iNO. GO TO ERROR 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR 

sADDRESS OF ERROR MESSAGE 

2SETUP POINTERS TO DATA 


;CHECK IF DATA IS CORRECT 
jsesTEST INSTRUCTIONess 
GET FPS 


F 
sCHECK FPS 

30K GO ON 

3NO. GO TO ERROR 

sALL ERRORS TO TRAP TO EMT VECTOR 
3s UNIQUE 

sADDRESS OF ERROR MESSAGE 

sSETUP POINTERS TO DATA 


3 
;CHECK IF DATA IS CORRECT 
ee Pee INSTRUCTIONess 


: FPS 

;CHECK FPS 

30K GO ON 

3NO, Go TO ERROR 

2;ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


:SETUP POINTERS TO DATA 
‘ 






SEQ 9048 


IK4 









GLOBAL AREAS —_MACY11 30A(1052) 15-MAR- 16: 4 
KDJI1A.MAC 1S-MAR 84 i531 786 PEst Ter AND TSTD SEQ 9049 
2343 010462 004767 000130 JSR PC ,CHEC26 ;CHECK IF DATA 1S CORRECT 
2344 010466 012704 000200 MOV #200 ,R4 sSETUP TO LOAD FPS 
2345 010472 170104 LOFPS R4 ;SET FD=1 
2346 010474 170537 010640 TSTO a#TS2600 ;#*6TEST INSTRUCTIONS+s 
2347 010500 170203 STFPS R3 ;GET FPS 
2348 010502 020327 000204 CMP R3,0204 ;CHECK FPS 
2349 010506 001403 BEQ 4$ 50K GO ON 
2350 sNO, GO TO ERROR 
2351 010510 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2352 010512 000142 .WORD 142 sUNIQUE ERROR NUMBER 
2353 010514 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 
2354 010516 012704 010640 4$; MOV #TS26D0,R4 SETUP POINTERS TO DATA 
2355 010522 012702 010670 MOV ®TS26D3,R2 
2356 010526 004767 000064 JSR PC ,CHEC26 iCHECK IF DATA IS CORRECT 
2357 010532 170567 000112 TSTO 8 ©«§=—-: TS2601 saeeTEST INSTRUCT IONes« 
2358 010536 170203 STFPS R3 ;GET FPS 
2359 010540 020327 000210 CMP R3,0210 :CHECK FPS 
2360 010544 001403 BEQ S$ ;0K GO ON 
2361 {NO, GO TO ERROR 
2362 010546 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2363 010550 000143 .WORD 143 {UNIQUE ERROR 
2364 010552 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 
2365 010554 012704 010650 S$; MOV #TS2601,R4 SETUP POINTERS TO DATA 
2366 010560 012702 010700 #152604 ,R2 
2367 010564 004767 JSR PC ,CHEC26 SCHECK IF DATA IS CORRECT 
2368 010570 170567 000064 TSTOD © TS2602 ;eeeTEST INSTRUCTION 
2369 010574 170203 STFPS RS ;GET FPS 
2370 010576 020327 000200 CMP R3, 0200 :CHECK FPS 
2371 010602 001403 BEQ 63 :0K GO ON 
2372 010604 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2373 010606 000144 WORD 144 sUNIQUE ERROR NUMBER 
2374 010610 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 
2375 3NO GO TO ERROR 
2376 010612 68: 
2377 
2378 : 
2379 010612 000167 000102 JMP F IN26 
: 
2381 010616 012701 000004 CHEC26: MOV 04,R1 sINIT COUNTER 
2382 010622 022422 18: CMP CR4)+,CR2)> 31S DATA CORRECT 
2383 010624 001403 BEQ 23 sYES GO ON 
2384 010626 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2385 010630 000145 WORD 145 SUNTQUE ERROR 
2386 010632 002013 .WORD FPPERR sADDRESS OF ERROR MESSAGE 
2387 sNO GO TO ERROR 
2388 010634 077106 2s: $08 Ri,18 sARE WE CONE 
2369 010636 000267 RTS PC 3RETURN 
° 
2391 010640 77 TS26D0: .WORD 177 
2392 010642 177777 WORD 177777 
2393 010644 177777 WORD 177777 
2394 010646 177777 WORD 177777 
2395 010650 177777 TS26D1: .WORD 177777 
2396 010652 WORD 0 
2397 010654 000000 .WORD 0 
2398 010656 000000 .WORD 0 


GLOBAL. 
KDJLIA. 


AREAS 


010770 


010772 
010774 


011010 
011014 


011016 


MACY11 30A( 1052) 
15 -MAR - 84 


077777 
000000 
000000 
000177 
177777 
177777 
177777 
177777 
000000 
000000 
000000 
077777 
000000 


000000 
000000 


15:51 


L4 


15-MAR-84 16:58 PAGE 50 
T30 


TEST TSTF AND TSTD 


TS26D02: .WORD 77777 
.WORD O 
. WORD 0 
WORD 0O 
TS26D3: .WORD 177 
. WORD 177777 
. WORD 177777 
. 0 177777 
TS26D04: .WORD 177777 
. WORD 
WORD O 
. WORD 
TS26D5: .WORD 77777 
WORD O 
-WORD O 
FIN26: 
; 
TSFP27: 


3 §O8ROOO60606006000600606066066666666666660606666666666666060066868% 
T ABSF 


s*TEST 31 


3 3 9O02064686046666664666466660686 = 24266666666 66666666666664666666666 


T31: 


sTESTN 
BOTRPFLG 





1008: 

1%: 
. WORD 147 
-WORD *FPPERR 

2s: MOV @TSTLOC+10,R5 
ABSF CR5)> 
STFPS RS 
CMP R5,@TSTLOC +14 
BEQ 3% 


TER 
TUP POINTER TO TEST LOCATI 
: SETUP POINTER TO — wa 
SINIT TEST LOCATI 
sARE WE DONE 
: SETUP POINTER TO DATA 
aay ee INSTRUCT IONess 


3 FPS 

:IS RS CORRECT 
3YES GO ON 
3NO, GO TO 


ERROR 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 













; CHECK 

30% GO ON 

3NO. Go TO ERROR 

;ALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE 

sADDRES 


S OF ERROR MESSAGE 
sSETUP POINTER TO DATA 


ERROR 
¢ ERRORS TO TRAP TO EMT VECTOR 


SEQ 0050 


M4 


A MAR-84 nos 
TC OR Ribas 8 LS-MAR= G7 16:98. PAGE. 51 SEQ 0051 
2455 011044 000150 .WORD 150 ;UNIQUE ERROR NUMBER 
2456 011046 002013 "WORD FPPERR ;ADORESS OF ERROR MESSAGE 
2457 011050 012705 001146 33: MOV @TSTLOC+10,R5 1 SETUP POINTER TO DATA 
2458 011054 012702 011244 MOV @TS27D4, 
2459 011060 004767 000076 JSR PC, CHEC27 i CHECK IF DATA IS CORRECT 
2460 011064 020327 000000 CMP R3, 00 ;CHECK FPS 
2461 011070 001403 BEQ 43 ;0K GO ON 
2462 sNO, GO TO ERROR 
2463 011072 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2464 011074 000151 -WORD 151 ;UNIQUE ERROR NUMBER 
2465 011076 002013 . WORD FPPERR sADDRESS OF ERROR MESSAGE 
2466 011100 012705 001136 4: MOV ®TSTLOC,RS SETUP POINTER TO DATA 
2467 011104 170665 000020 ABSF 20(RS) ;eeTEST INSTRUCTIONess 
2468 011110 170203 STFPS R3 ;GET FPS 
2469 011112 020527 001136 CMP RS, eTSTLOC ;I1S RS CORRECT 
2870 011116 001403 BEQ 55 ;YES GO ON 
2471 ;NO, GO TO ERROR 
2472 011120 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2473 011122 000152 .WORD 152 [UNIQUE ERROR NUMBER 
2474 011124 002013 . WORD FPPERR sADDRESS OF ERROR MESSAGE 
2475 011126 012705 001156 S$: MOV eTSTLOC +20, RS ;SETUP POINTERS TO DATA 
2476 011132 012702 011254 MOV @TS27D5,R2 ; 
2477 011136 004767 000020 JSR PC, CHEC27 ;sCHECK IF DATA IS CORRECT 
2478 011142 020327 000004 CMP R3,04 ;CHECK FPS 
2479 011146 001403 BEQ 63 :0K GO ON 
2480 ;NO, GO TO ERROR 
;ALL ERRORS TO TRAP TO EMT VECTOR 


: 
2 
j 

." 





2482 011152 000153 153 SUNIGUE ERROR NUMBER 
2483 011154 002013 "WORD FPPERR ;ADDRESS OF ERROR MESSAGE 
2484 011156 63: 
2485 
2486 : 
2487 011156 000167 000102 JMP FIN27 
3 
2489 011162 012701 000004 CHEC27: MOV 04,R1 ; INIT COUNTER 
2490 011166 022522 i$: CMP CR5)+,CR2)> :IS DATA CORRECT 
2491 011170 001403 BEQ et ;YES GO ON 
2492 :NO, GO TO ERROR 
2493 011172 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2494 011174 000154 .WORD 154 s; UNIQUE ERROR NUMBER 
2495 011176 002013 ‘WORD FPPERR ;ADDRESS OF ERROR MESSAGE 
2496 011200 077106 23: 508 Ri,18 :ARE WE DONE 
2497 011202 RTS PC ; RETURN 
3 
2499 011204 177777 TS27D0: .WORD 177777 
2500 91 177777 . WORD 177777 
2501 011210 177777 » WORD 177777 
2502 011212 177777 » WORD 177777 
2503 011214 000377 TS2701: [WORD 377 
2504 011216 175436 “WORD 175436 
2505 011220 136477 “WORD 136477 
2506 011222 000001 “WORD ok 
2507 011224 000177 TS2702: .WORD 177 
2508 011226 175436 ;WORD 175436 
2509 011230 136477 “WORD 136477 
2510 011232 000001 ‘WORD 1 


GLOBAL 


AREAS 


KDJ11A.MAC 


011234 


011410 
011412 
011414 
011416 
011422 


MACY11 30A 
15-MAR-84 15: 


077777 


012702 


167514 
002122 
000200 


000014 
001136 
011552 


001136 


001136 


011602 
000152 
000200 


001146 


001156 


001146 
011612 


TS2703;: 


TS27D4; 


TS27D5: 


FIN2?7: 


3 
TSFP3SO;: 


N4 


(4952) 15 -MAR - 794 16: 9B. pPAGE 52 


§ F SSARAERARASEAAESEEAESEEAEEEEEREDAEHEEOEEEEAESEEEEOEOOEEDEEEEAAESS 


;#TEST 32 
83 PAAARACADEEAEEAEEAEAREEEDOEEEEEEEAEEEOEOAEEEEDESEEEEDEEEEAEESEDES 


TSTS2: 


100$;: 


18: 


2$: 


3$; 


STESTN 
BeTRPFLG 
6200,R5 
RS 


12. ,Ri 
@TSTLOC ,R4 
$3000,R 


eT 3 
CR3)+,(R4)> 
R1, 1008 
@TSTLOC,RS 
CR5) 

R3 

RS, @TSTLOC 
13 


155 
FPPERR 
eTS30D3,R2 
PC, CHECSO 
ata 


FPPERR 

CRS)- 

R3 

- ait tala 


157 


FPPERR 
py 10,R5 
@TS30D4 ,R2 


; INCREMENT TEST NUMBER 

;CLEAR TRAP FLAG 

sSETUP TO LOAD FPS 

sSET FD-1 

s INIT COUNTER 

sSETUP POINTER TO TEST LOCATION 
sSETUP POINTER TO TEST VALUE 
sINIT TEST LOCATION 

ARE WE 


) DONE 
sSETUP POINTER TO DATA 
s@eeTEST INSTRUCTIONess 


3NO, GO TO 
3 ALL 


DATA 
s;CHECK IF DATA ts CORRECT 
CHECK FPS 


3 
30K GO ON 

:NO, GO TO ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 





TO ERROR 
ALL ERRORS TO TRAP TO EMT VECTOR 
SUNTQUE ERROR NUMBER 


sADDRESS OF ERROR MESSAGE 
SETUP POINTERS TO DATA 
‘ 


SEQ 0052 


GLOBAL. AREAS 
KDJ11A.MAC 


011514 
011516 
011520 


011612 


MACY11 30A( 1052) 
1S5-MAR-84 15:51 


000167 


000076 
000200 


000102 


15 -MAR - 84 
T32 


43; 


58: 


6$: 


CHEC3O: 
18: 


2s: 


TS3000: 
TS3001: 
TS30De2: 
TS3OD5: 


TS3004; 


BS 


16:58 PAGE 55 


TEST ABSD 

JSR PC ,CHECSO 
CMP R3,@200 
BEQ 

ERROR 

-WORD 160 

.WORD FPPERR 

MOV @TSTLOC,RS 
ABSO 20(R5) 
STFPS RS 

CMP RS, @TSTLOC 
BEQ 5$ 

ERROR 

; 161 

, FPPERR 

MOV @TSTLOC+20,R5 
MOV @TS5005 ,R2 
JSR PC .CHECSO 
CMP R3, 0204 
BEQ 6% 

ERROR 

-WORD 162 

-WORD FPPERR 
JMP FINSO 

MOV o4,R1 

chp CRS)+,CR2)> 
BEQ 2s 

ERROR 

-WORD 165 

.WORD FPPERR 
SOB Ri,18 

RTS Pc 

WORD 177777 
WORD 177777 
-WORD 177777 
.WORD 177777 
-WORD 377 

-WORD 175436 
-WORD 136477 
-WORD 1 

-WORD 177 

-WORD 175436 
-WORD 136477 
«WORD 1 

WORD 77777 
-WORD 177777 
-WORD 177777 
-WORD 177777 
-WORD 577 


f+ 4 i” IS CORRECT 


og 

OK GO 
s ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 


sADDRESS OF ERROR MESSAGE 
, SETUP POINTER TO DATA 
s@eeTEST INSTRUCTIONess 
GET FP 


sYES a 
sALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE € RROR NUMBER 


sADDRESS OF ERROR MESSAGE 
SETUP POINTERS TO DATA 
S CHECK } DATA IS CORRECT 
sCHECK FPS 
30K GO . 
1N0 GO T 0 ERROR 
ALL ERRORS TO TRAP TO EMT VECTOR 
NUMBER 


S UNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 


s INIT COUNTER 

:IS DATA CORRECT 

:YES GO = 

7 GO TO ERROR 

L ERRORS TO TRAP TO EMT VECTOR 
NIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 

sARE WE DONE 


3;RE TURN 


SEQ 9053 


RBOTTA.ARE’S SARA Ag SPACSP52>  1S-MARSGG 16:58. /PAGE, 54 SEQ 0054 
2623 011614 175436 . WORD 175436 
2624 011616 136477 . WORD 136477 
2625 011620 000001 . WORD 1 
2626 011622 000000 TS30D5: .WORD 0O 
2627 011624 000000 , 8) 0 
2628 000000 .WOR 0 
2629 011630 000000 .WORD O 
2630 011632 FINSO; 
2631 3 
2632 911632 TSFPS31;: 
2633 SL OPAOAHASERAEACEEAEAEOAEEEEEEEOEOEOOEEEOEOOEEEEEEERODEEEEEEEOESS 
2634 ;@TEST 33 TEST FOST SOP MODE 2 GR7 
2635 LL PROHOOAEOHOAEEEAAEEEAEEEEEDAEEOEEREOREOOOEOOOEEEEEEEEEEEEEEEDES 
2636 011632 TST33: 
2637 011632 005267 167146 INC sTESTN s INCREMENT TEST NUMBER 
2638 011636 005037 002122 CLR BeTRPFLG sCLEAR TRAP FLAG 
2639 011642 013746 000004 MOV 804, -( SP) sSAVE TIMEOUT VECTOR 
2640 011646 012737 011764 000004 MOV OTSF 31,804 sSETUP NEW VECTOR 
2641 011654 012702 000200 MOV 0200 ,R2 sSETUP TO LOAD FPS 
2642 011660 170102 LOFPS sSET FD1 
2643 011662 170527 000005 TSO31i: YTSTO e5 s@esTEST INSTRUCT [ONesce 
2644 011666 000240 NOP 
2645 011670 000240 NOP 
2646 011672 NOP 
2647 011674 170203 STFPS R3 sGET FPS 
2648 011676 020327 000204 CMP R3, 0204 sCHECK FPS 
2649 011702 001403 BEQ 18 30K GO ON 
2650 011704 104000 ERROR FALL ERRORS TO ee TO EMT VECTOR 
265i 011706 000164 . WORD 164 sUNIQUE ERROR 
2652 011710 002013 WORD *FPPERR sADDRESS OF ERROR MESSAGE 
2653 sNO GO TO ERROR 
2654 O11712 012702 011664 18: MOV @TS$031+2,R2 sSETUP POINTER TO DATA 
2655 011716 022227 000005 CMP CR2)+, 05 31S DATA CORRECT 
2656 011722 001403 BEG : YES GO ON 
2657 011724 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
2658 011726 000165 . WORD 165 S UNIQUE ERROR NUMBER 
2659 011730 002013 WORD FPPERR ; ADDRESS OF ERROR MESSAGE 
2660 sNO GO TO ERROR 
2661 011732 012701 000003 23: MOV @3,A1 sINIT COUNTER 
2662 011736 022227 000240 33; CMP CR2)+, 0240 3IS DATA CORRECT 
2663 011742 001403 BEQ ag bo GO ON 
2664 011744 104000 ERROR C ERRORS TO TRAP TO EMT VECTOR 
2665 011746 000166 . WORD 166 IQ ERROR NUMBER 
2666 011750 002013 WORD FPPERR sADDRESS OF ERROR MESSAGE 
2667 :NO GO TO ERROR 
2668 011752 077107 43%: SOB Ri, 3% 3 WE DONE 
oo 011754 012637 000004 MOV (SP)-, 904 sRESTORE VECTOR 
2671 ¢ 
se 011760 000167 000010 JMP FINS} 
2674 011764 TSF S31: 
2675 011764 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2676 011766 000167 » WORD 167 sUNIQUE ERROR NUMBER 
2677 011770 002012 -WORD FPPERR :ADDRESS OF ERROR MESSAGE 


2678 3000 ADDRESS TRAP 


RBSE TN ARE®S  s"ARATAgSPBCAPS2? IS MARSGG 16:58. PAGE 585 uone o Gp? 


011772 
011774 
011774 


011774 
011774 


012110 
012114 


012116 


012162 
012166 


000006 


000167 
012701 


167004 
002122 


000014 
001156 
012210 


167102 
001136 


012240 
000114 
000000 


000102 


DS 


sRE TURN 


F ESSAHSAHAHAHAEHEHSEEEEEEHAEEHEEEEEESEEEEEEEEEEEEEEHERESEREDORERESS 


EE POSAHAHHAHEAALEEAEAEEAAREEEEEESEAEEEREEEDEEEEEEEEDEEEEEEDESEDES 


RTT 
i 
FINS1: 
fsrpso. 
,eTEST 34 TEST NEGF 
TST34, 
INC $TESTN 
CLR BOTRPFLG 
CLR RS 
LOFPS RS 
MOV #12. ,R1 
MOV eTSTLOC, Ra 
MOV @TS3200 
100$: MOV (R3)-, 355A). 
soe m | 
NEGF TSTLOC. 
STFPS 
MOV @TSTLOC,RS 
MOV ©7S3203,R2 
wSR PC, CHEC32 
CMP R3,00 
BEQ is 
ERROR 
WORD 170 
' FPPERR 
is: NEGF TSTLOC+10 
STFPS 
MOV @TSTLOC+10,R5 
MOV @TS32D4 ,R2 
JSR PC , CHE 
CMP R3,@10 
BEQ 23 
ERROR 
WORD 171 
F FPPERR 
28: GF TSTLOC +20 
STFPS RS 
MOV @TSTLOC+20,R5 
MOV #T$32D05,R2 
JSR CHE 
CMP . 24 
BEQ 
ERROR 
WORD 172 
: FPPERR 
3%; 
JMP FINS2 
3 
CHEC32; MOV RL 


s INCREMENT TEST NUMBER 
sCLEAR TRAP FLAG 
sSETUP TO LOAD FPS 

sSET FO=0 

sINIT COUNTER 

sSETUP POINTER TO TEST LOCATION 
ssETUP POINTER TO TEST VALUE 
sINIT TEST LOCATION 


$ WE DONE 
s*eeTEST INSTRUCTIONess 
;GET FP 

sSETUP POINTERS TO DATA 


$ 
sCHECK IF DATA IS CORRECT 
sCHECK FPS 
sYES GO co 
He -¥ Go T O ERROR 

ALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sees the INSTRUCT IONess 


sGET FPS 

SETUP POINTERS TO DATA 

: CHECK IF DATA IS CORRECT 
CHECK FPS 


3 

:0K GO <* 
:NO. GO Tf 0 ERROR 
sALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 
,eeeTEST INSTRUCTIONece 

3GET FPS 

sSETUP POINTERS TO DATA 

3 

: CHECK pa * ey IS CORRECT 
sCMECK FP 

30K GO 
iN GO TO ERROR 

C ERRORS TO TRAP TO EMT VECTOR 


UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


s INIT COUNTER 


SEQ 9055 


GLOBAL 


AREAS 


KDJ1L1A.MAC 


012172 
012174 


012176 


012270 
012270 


012270 


022522 
001403 


1$:; 


2s: 


: 
TS3200: 


TS32D01: 


TS32D3: 
TS32D4: 
TS32D05: 


FINS2: 


3 
TSFP3S3: 


Be 


ERROR 


SUSSSSSSD5505099905885 “2 


= 


15. 7 +e Pie CASS fal 15 -MAR - 7%4 16: ‘PE PAGE, 56 


CRS5)+,CR2)> 
es 


5 


1IS DATA CORRECT 

sYES GO ON 

sALL ERRORS 10 TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

gee OF ERROR MESSAGE 

sARE WE DONE 

;RE TURN 


5 8 9OO086808066666060866000066006066460668606060866666006606060064868608806 
GO 


3;*TEST 


BF OO86000656068 68666646684 0406666660660000666606000606066060006006800000068 


TSTS3S: 


100$: 


#12, Ri 
eTSTLOC,R4 
©TS3300.R3 
(R3)+,(R4)> 
R1, 1008 
TSTLOC 


@TSTLOC RS 
@TS3303,R2 
ye C33 


s INCREMENT TEST NUMBER 
Cu TRAP FLAG 





COUNTE 
3SETUP POINTER TO TEST LOCATION 
: SETUP POINTER TO TEST VALUE 
SINIT TEST LOCATION 
sARE WE DONE 
seeeTEST INSTRUCT IONece 
i 
sSETUP POINTERS TO DATA 


: 
;CHECK IF DATA IS CORRECT 
;CHECK FPS 

:0« GO 


SEQ 9056 






GLOBAL AREAS 30A( 1052) 15-MAR- 6:58 PAGE 57 
KDJLIA.MAC 15 MAR Ba seca? : re 1698. PAGED SEQ 0057 

2791 ;NO, GO TO ERROR 

2792 012356 104000 ERROR ALC ERRORS TO TRAP TO EMT VECTOR 

2793 012360 000174 "WORD 174 ;UNIQUE ERROR 

2794 012362 002013 ‘WORD FPPERR VADORESS OF ERROR MESSAGE 

2795 012364 170767 166556 L$: NEGD TSTLOC+10 1saeTEST INSTRUCTIONS. 

2796 012370 170203 STFPS R3 T FPS 

2797 012372 012705 001146 MOV @TSTLOC+10,R5 SETUP POINTERS TO DATA 

2798 012376 012702 012546 MOV @1S3304 ,R2 

2799 012402 004767 000056 JSR PC. CHECS3 S CHECK IF DATA IS CORRECT 

2800 012406 020327 000210 CMP R3. 0210 ;CHECK FPS 

2801 012412 001403 BEQ 28 ;0K GO ON 

2802 iNO, GO TO ERROR 

2803 012414 104000 ERROR sALL ERRORS TO TRAP TO ENT VECTOR 

2804 012416 000175 “WORD 175 ;UNIQUE ERROR NUMBER 

2805 012420 002013 "WORD FPPERR ;ADDRESS OF ERROR MESSAGE 

2806 012422 170767 166530 2%: NEGD_ —_TSTLOC+20 saeeTEST INSTRUCTIONess 

2807 012426 170203 STFPS RB FPS 

2808 012430 012705 001156 MOV eTSTLOC+20,R5 1SETUP POINTERS TO DATA 

2809 012434 012702 012556 MOV @T53305,R 

2810 012440 004767 000020 JSR pc. crecss. CHECK IF DATA IS CORRECT 

2811 012444 020327 000204 CMP RS. 0204 ;CHECK FPS 

2812 012450 001403 BEQ 33 30K GO ON 

2813 3NO, GO TO ERROR 

2814 012452 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

2815 012454 000176 “WORD 176 ;UNIQUE ERROR NUMBER 

2816 012456 002013 "WORD FPPERR ;ADDRESS OF ERROR MESSAGE 

2817 012460 38: 

2819 012460 000167 000102 UMP FINS3 

3 

2821 012464 012701 000004 CHEC33: MOV 04,R1 sINIT COUNTER: 

2822 012470 022522 i$: CMP CR5)+,CR2)> TS DATA CORRECT 

2823 012472 001403 BEQ 28 ;YES GO ON 

2824 :NO, Go TO ERROR 

2825 012474 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 

2826 012476 000177 .WORD 177 UNIQUE ERROR NUMBER 

2827 012500 002013 "WORD FPPERR sADDRESS OF ERROR MESSAGE 

2828 012502 077106 28: 508 Ri,18 ;ARE WE DONE 

2829 012508 000207 RTS PC 3 RETURN 

2831 012506 170000 TS3300: .WORD 170000 

2832 012510 003541 ‘WORD - 354, 

2833 012512 177777 "WORD «=«-177777 

2834 012514 172710 ‘WORD 172710 

2835 012516 070000 TS33D1: .WORD 70000 

2836 012520 00 ‘WORD ©: 3541 

2837 012522 177777 “WORD =«177777 

2838 012524 172710 "WORD 172710 

2839 012526 000177 TS3302; |WORD 

2840 012530 100000 “WORD 

2841 012532 177777 “WORD «177777 

2842 012534 177007 “WORD 177007 

2843 012536 070000 TS33D3: |WORD 

2844 012540 003541 ‘WORD =: 3541 

2845 012542 177777 "WORD =-:177777 

2846 012544 172710 "WORD 172710 


GLOBAL 
KDJLIA. 


AREAS 
MAC 


012702 


GS 


MA 414, 5086 2052) 15-MAR = 04 16:98. PAGE 38 


15-MAR 


002013 


022722 
001403 
104000 


170203 


612604 


TS33D04; 


TS3305;: 


FINSS:;: 


: 
MFSRCMO: 


SF PHAAAAAAAAEAEEASERASCESEEEAEDEEEEREEEEEEERAEEAEEEEEEEEEEDEDAOAESS 


;*TEST 


TEST LOD MODE 0, ILLEGAL AC7 


b 3 999884404060668666666466664646664666666664666666664666666666464646666666 


T36: 


1$: 


es: 


3$: 


4$: 


MLODM2 : 



















$TESTN s INCREMENT TEST NUMBER 
047600 ,R4 ;SETUP FPP STATUS 
R4 sLOAD FP STATUS 
ORECFEC ,R2 sPOINT TO RECEIVED FEC MEMORY 
R7,ACO s@TEST INS TION 

3 ACO F ILLEGAL AC7 
RY sSAVE FPP STATUS 
#147600,R1 sVERIFY FER BIT SET 
2s sBRANCH IF GOOD ERROR CONDITION 

sALL ERRORS TO TRAP TO EMT VECTOR 
200 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 

:;THE FER BIT DIONT SET 

CR2) sSAVE FEC AND FEA 
2,(R2)> sVERIFY FEC CONTENTS 
3$ i IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
201 sUNIQUE ERROR NUMBER 
FPPERR 
@13,¢CR2)> 
4% GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
202 :UNIQUE ERROR NUMBER 
FPPERR :ADDRESS OF ERROR MESSAGE 

sFEA NOT CORRECT ERROR ADDRESS 


5 3 OSOOS60066086004666460660466646060046 00600600600 0060606006046600460000000088 


s*TEST 37 
8 8 2O66602665660646 6064660 4600664660646086660646064006060600060066004060000008 


TST3?7; 


MOV 
MOV 
LOFPS 
00 
STFPS 


TEST LOD MODE2 


sTESTN s INCREMENT TEST NUMBER 

ORECOST .R1 sPOINT TO RECEIVED DATA LOCATION 
@TAB1 ,R4 sPOINT TO GOOD DATA 

0477350 ,R2 sLOAD GOOD STATUS 

R2 :LOAD FPP STATUS - DOUBLE, 
C(R4)+,ACO ;¢eeTEST INSTRUCTION - ceee 
RS :SAVE TEST FPP STATUS 


SEQ 0058 






GLOBAL AREAS MACY11 30AC1052) 15-MAR-84 16:58 PAGE 59 SEQ 0059 
KDJ11A.MAC 1S-MAR-84 15:51 T37 TEST LOD MODE2 

2903 012704 174021 STO ACO,(R1)> sSAVE TEST RESULT MODE 2 

2904 012706 020203 CMP R2,R5 ;VERIFY FPP STATUS 

2905 012710 001403 BEQ i$ sBRANCH IF GOOD 

2906 012712 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

2907 012714 000203 -WORD 203 sUNIQUE ERROR NUMBER 

2908 012716 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 

2909 ;BAD FPP STSTUS 

2910 012720 022704 001206 1$: CMP OTAB1+10,R4 a AUTO-INCR 

2911 012724 001403 BEQ 2$ sBRANCH IF GOOD 

29i2 012726 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

2913 012730 000204 -WORD 204 sUNIQUE ERROR NUMBER 

2914 012732 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 

2915 sBAD AUTO-INCR 

2916 012734 012704 001176 2s: MOV @TAB1,R4 sPOINT TO ~ yet ey 4 DATA 

2917 012740 162701 000010 SUB #10,R1 sRETURN R1 TO PROPER VALUE 

2918 012744 004767 167176 JSR R7,DATVER sVERFIY DATA FROM FPP. 

2919 012750 005767 166064 TST COUNT ;SEE IF COUNTER=0 

2920 012754 001403 BEQ 3$ sBRANCH IF GOOD COMPARE 

2921 sBAD DATA FROM FPP 

2922 012756 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 

2925 012760 000205 -WORD 205 sUNIQUE ERROR NUMBER 

2924 012762 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 

2925 012764 38: 

2926 

2927 ; 

2928 012764 MLDDMS: 

2929 b §O0O06800660066680066660606606660666666606606606600060066066660466866 

2930 ;*TEST 40 TEST LOD MODE 3 

293i 8 §OO84606000646066060600660660660264606606006060660606606060600666066066008666 

2932 012764 TST40;: 

2933 012764 005267 166014 INC sTESTN s INCREMENT TEST NUMBER 

2934 012770 012737 001126 001140 MOV ORECDST ,BeTSTLOC+2 sPOINT TO RECEIVED DATA LOCATION 

2935 012776 012701 001140 MOV @TSTLOC+2,R1 STD IN MODE 3 


2936 013002 012737 001206 001136 


ACO, @CR1)> 
R3 


3026 
29435 013030 022703 047740 047740, 





2944 013034 001403 is 

2945 013036 

2946 013040 000206 206 

pd 013042 002013 FPPERR 

2949 013044 022704 001140 1%; CMP @TSTLOC+2,R4 

2950 013050 001403 BEQ 2s 

2951 013052 104000 ERROR 

2952 013054 000207 -WORD 207 

2953 013056 002013 -WORD FPPERR 

2955 013060 022701 001142 2s: CMP OTSTLOC +4,41 3: TEST STO AUTO-INC 
2956 013064 001403 BEQ 38 :BRANCH IF GOOD 
2957 013066 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
2958 013070 000210 -WORD 210 8UNIQUE ERROR NUMBER 


* 


GLOBAL 


KDJLIA. 


ssesseyeneTyENE Nyy 


AREAS 
MAC 


013072 


013122 
013124 
013124 


013124 


002013 


001206 
001126 
167036 
165724 


001216 


001216 
166712 
165600 


La 


is MAR Ba fesse ties 16:98. PARE ABpe 3 


.WORD FPPERR ESS OF — MESSAGE 


;ADOR 
SBAD AUTO-INC 


3$; MOV @TAB2,R4 sPOINT TO RECEIVED DATA 
MOV ORECDST,R1 sPOINT TO RECEIVED DATA 
JSR R7,DATVER sVERFIY DATA FROM FPP 
TST COUNT sSEE IF COUNTER=0 
BEG 4% sBRANCH IF GOOD COMPARE 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 211 sUNIQUE ERROR NUMBER 
. WORD FPPERR sADDRESS OF ERROR MESSAGE 

;BAD DATA FROM FPP 
4$;: 
MLODM4 ; 


FE SSSAAHAASEKEEEEEEEEEEEEEEEEEEEOEEEEESESEEEEEEEEEEEEREEOEEEEEEEBEESE 


;*TEST 41 
§ 5909 00400000600666060606606666660066660606646660666666666666006606668668. 


TEST LOF, STD MODE 4 








TST41: 
INC $TESTN ;INCREMENT TEST NUMBER 
MOV ORECDST+4,R1 SPOINT TO RECEIVED DATA LOCATION 
MOV @TABS+4,R4 ;POINT TO GOOD DA 
MOV OTAB6, ;CLEAR OUT ACO 
LOFPS @ ;SET TO 
LOD CRS), ACO sACO-0 
MOV 047550, R2 ;LOAD GOOD STATUS FLOATING 
LOFPS ;LOAD FPP STATUS - DOUBLE.ID 
LOF -(R4), ACO seTEST INSTRUCTION - MODE 4 
STFPS ;SAVE TEST FPP STATUS 
MOV €47750,R2 DOUBLE MODE 
LOFPS 
STD ACO, -(R1) 
CMP 047540, :VERIFY FPP STATUS 
BEQ 18 ;BRANCH IF GOOD 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD SUNIQUE ERROR NUMBER 


18: 













IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 











213 ;UNIGUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
;BAD AUTO-INCR 
2s: eTABS.R4 POINT TO RECEIVED DA DATA 
R7.DAIVER ;VERFIY DATA FROM FPP 
3SEE IF COUNTER=0 
33 ; IF GOOD COMPARE 
3ALL ERRORS TO TRAP TO EMT VECTOR 
214 ;UNIQUE ERROR NUMBER 
: FPPERR ADDRESS OF ERROR OR MESSAGE 
:B8AD DATA FROM FPP 
38; 
MLDDMS : 


5 5 4OO060666860686464606064606600660004660606060600606000600680FCRRRRRRBEEEAELE 
3*TEST 42 


TEST LOD MODE 5 


SEQ 0060 


GLOBAL 


AREAS 


KDJL1A.MAC 


MACY11 30A(C 1052) 
1S-MAR-84 15:51 


165530 


001136 


166502 
165370 


15 -MAR -84 
T42 


001136 


16:58 


PAGE 61 
TEST LOD MODE 5 


EE PHAROAH AEEEHAEAADEEAAEEAAAEAAEAEEAEAEAEAAEOEAMERAEMEEEEAEBEEES 


TST42; 


1$; 


38: 


MLDDMG ; 





$TESTN 


@RECOST,R1 
OTSTLOC+2,R4 
@TAB1,@@TSTLOC 
0477 


Re 

RS 
ACO,(R1) 
R2,R3 


is 


215 
FPPERR 


@TSTLOC ,R4 
2s 


216 
FPPERR 


@TAB1,R4 
R7,,.DATVER 
COUNT 


38 
217 
FPPERR 


s INCREMENT TEST NUMBER 
sPOINT TO anes ae — LOCATION 
sPOINT TO GOOD 


STA 
sLOAD FPP STATUS - DOUBLE,ID 
s#TEST INSTRUCT ION - MODE 5 
sSAVE TEST FPP STATUS 
sSAVE TEST RESULT 
sVERIFY FPP STATUS 
sBRANCH IF GOOD 
3; ALL cs cae -_ TRAP TO EMT VECTOR 
sUNIQUE E 
s ADDRE 


GOOD 
ALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE 
s ADDRESS _— MESSAGE 


sBAD AUTO 
;POINT TO 7 cee ore 
sVERFIY DATA FROM F 


sSEE IF COUNTER=-0 

sBRANCH IF GOOD COMPARE 

2ALL ERRORS YO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

; ADDRESS OF ERROR — 

:BAD DATA FROM FPP 


SS eeee ag enn ne te onelcesensntennonsenncnsoonaneooonesooonnscascs 
MODE 6 


:*TEST 


T LOD 


a ERE Libbb akan ibaa tes sates tbanhenbidibnaisbintibiadnsia, néesamacs 
3 


TST43: 


985 gapeessegeens 





: INCREMENT TEST NUMBER 
SPOINT hn RECEIVED DATA LOCATION 
;SETUP R4 FOR MODE 6 

:LOAD GOOD STATUS 

ae FPP STATUS - DOUBLE.ID 


1.00 MODE 6 
3;SAVE TEST FPP STATUS 





*RECOST 
:POINT TO a phate = 
sVERFIY DATA FROM F 
:SEE IF COUNTER=0 


SEQ 0061 


INO 


GLOBAL AFEAS MACY11 30A(1052) 15-MAR-84 16: PA 6 
KDJI1A.MAC 15 -MAR Ba 15693 a3 *°' FEsrP CBB Sve 6 =e Cote 
3071 013450 001403 BEQ 3$ sBRANCH IF GOOD COMPARE 
3072 013452 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3073 013454 000221 -WORD 221 sUNIQUE ERROR NUMBER 
3074 013456 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
3075 sB8AD DATA FROM FPP 
3076 013460 3$; 
3077 
3078 013460 MLDDM7 : 
3079 3 § SEAAEARAAEEALERESEEAAEOAREEEAEEEEEEEEEEAEEEEEEEDEREEEEEDEEDAEEDES 
:*TEST 44 TEST LOD MODE 7 
3081 iS PPAREAAEAEAEEEAEEAEEREAEDEDEEDS EAEBEEREOAEDDEDEEEEEREEEDEEEAEESEES 
3082 013460 TST44; 
3083 013460 005267 165320 INC $TESTN s INCREMENT TEST NUMBER 
3084 013464 012701 001126 MOV @RECOST,R1 sPOINT TO RECEIVED DATA LOCATION 
3085 013470 005004 CLR Ra 3R4=0 
3086 013472 012727 001176 001136 MOV @TAB1,@TSTLOC sPOINTER FOR MODE 7 GOOD DATA 
3087 013500 012702 047750 MOV 047750 ,R2 sLOAD GOOD STATUS 
3088 013504 170102 LOFPS Re sLOAD FPP STATUS - DOUBLE .> 
3089 013506 172474 001136 LOD @TSTLOCCR4), ACO ;sTEST INSTRUCTION - MODE 7 
3090 013512 170203 STFPS R3 sSAVE TEST FPP STATUS 
3091 013514 174011 STO ACO,(R1) sSAVE TEST RESULT 
3092 013516 020203 CMP R2,R35 sVERIF ’ © PP STATUS 
3093 013520 001403 BEQ is sBRANCH IF GOOD 
3094 013522 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3095 013524 000222 -WORD 222 S UNIQUE ERROR NUMBER 
3096 013526 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
3097 ;BAD FPP STATUS 
3098 013530 005704 18; TST R4 sVERFIY CONTENTS OF R4 
3099 013532 001403 5EQ 2s 3 IF GOOD 
3100 013534 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3101 013536 000223 -WORD 223 sUNIQGUE ERROR NUMBER 
—— 013540 002013 -WORD FPPERR oD ae OF ERROR MESSAGE 
3104 013542 012704 001176 23: MOV @TAB1 ,R4 :POINT TO ryt lh DATA 
3105 013546 004767 166374 JSR R7,OATVER ;VERFIY DATA FROM FPP 
3106 013552 005767 165262 TsT COUNT sSEE IF COUN 
3107 013556 001403 BEQ 33 sBRANCH IF GOOD COMPARE 
3108 013560 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3109 013562 000224 -WORD 224 sUNIQUE ERROR NUMBER 
3110 013564 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
3111 ;BAD DATA FROM FPP 
3112 013566 3$; 
3113 
3114 013566 MLOM27: 
3115 8 3 99OS66066046600666606660060000606000606600060000600000004000006000008 
3116 s@TEST 45 TEST LOD MODE 27 - ONLY 16 BITS ARE LOADED OR STORED 
3117 5 599800866 866465664606666606008006000000060606046000608000000000000000000 
3118 013566 TST45; 
3119 013566 005267 165212 INC sTESTN : INCREMENT T NUMBER 
3120 013572 012701 001126 MOV @RECOST ,R1 :POINT TO RECEIVED _ LOCATION 
3121 013576 012704 001236 MOV @TABS ,R4 sPOINT TO vate DATA 
3122 013602 012702 047750 MOV 047750 ,R2 sLOAD GOOD S 
3123 0O 005005 CL RS 3R5=0 
3122 013610 170102 LOFPS Re TOAD FPP STATUS - DOUBLE.ID 
3125 013612 172427 043243 LOD #5205, ACO ; TEST INSTRUCTION MODE 27 
3126 013616 005205 INC RS 


GLOBA:. 
KDJLIA. 


AREAS 
MAC 


013772 
013774 


013776 
014002 


MACY11 30A( 1052) 
15-MAR-84 15:51 


005205 
005205 
022705 
001403 
104000 
000225 
002013 


174011 


012702 
170102 


000005 


047740 


166262 
165150 


040004 


001126 


166164 
165052 


040200 


15-MAR -84 
T45 


1$; 


2s: 


3$: 


MNNRM1 : 


16:58 63 
TEST *C BD MODE 27 


La 


- ONLY 16 BITS ARE LOADED OR STORED 


RS 

RS 
o3,R5 
1$ 

225 
FPPERR 


ACO (R1) 
047740,R3 


226 
FPPERR 
R7,DATVER 
COUNT 

3% 


227 
FPPERR 


SEQ 0063 


s TEST PROPER PC PATH 

sVERIFY ONLY 3 PC INCREMENT 

sBRANCH IF PROPER PC ACTION 

sALL ge TO TRAP TO EMT VECTOR 
RROR NUMBER 


sUNIQUE E 

sADDRESS OF ERROR MESSAGE 

sB8AD MODE 27 LOAD 

s;SAVE TEST FPP STATUS 

sSAVE TEST RESULT 

VERIFY FPP STATUS 

BR IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIGUE ERROR NUMBER 

3s ADDRE ERROR MESSAGE 


OMPARE 
sALL ERRORS TO TRAP TO EMT VECTOR 
ERROR 


s UNIQUE NUMBER 
sADDRESS OF ERROR MESSAGE 
;BAD DATA FROM FPP 


8 8 228000868 060086846668866666066066666668606666666666606666666004666666 


3@TEST 


46 


TEST ADDF 


SUBD - ACO-0 FSRC-0; 


5 5 000000000000000000000000000000000000000000000000000006000000086 


TST46: 


13; 


2s: 


gagessecgeccix 








sTESTN 
@TABE 


set Ee 
ACO,.(R1) 
R? ,DATVER 
COUNT 

2s 


231 
FPPERR 


#40200 ,R2 
R2 


; ADDRE 
BAD DATA IN ACO 


s INCREMENT TEST NUMBER 
sPOINT TO FSRC TEST DATA 
sCLEAR OUT RECEIVED DATA TABLE 


3 
;SET UP GOOD STATUS 

sLOAD FPP STATUS, FLOATING 
org ACO WITH O 


;SAVE STATUS 
;VERIFY STATUS 

:BRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
;UNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


3;B8AD Fp. STATUS 


sPOINT TO Petes DATA 
:SAVE DATA 
— DATA 


iBRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

SS OF ERROR MESSAGE 


:LOAD FLOATING STATUS 
: 


MAE” 1SCMAR-Ba 15cSt TO MARTGS 16198 PA Eo noon, 


SUBF, SUBD - ACO=0 FSRC=0; 












014004 172414 (R4),ACO sLOAD ACO WITH O 
14006 172014 CRA) ACO ;#TEST INSTRUCTION 
014010 174011 0,¢R1) ;SAVE DATA 
014012 170203 ;SAVE FPS 
014014 022703 040204 920204. R3 ;VERFIY STATUS 
014020 001403 3$ ;BRANCH IF GOOD 
014022 104 sALL ERRORS TO TRAP TO EMT VECTOR 
014024 2 232 ;UNIQUE ERROR NUMBER 
014026 002013 FPPERR sADDRESS OF ERROR MESSAGE 
014030 004767 166112 3$: R7,DATVER ;VERFIY DATA 
014034 005737 001040 @OCOUNT ;VERIFY RESULT 
014040 001403 44$ ;BRANCH IF GOOD 
014042 104000 ;ALL ERRORS TO TRAP TO EMT VECTOR 
014044 000233 233 ;UNIQUE ERROR NUMBER 
014046 002013 FPPERR ;ADDRESS OF ERROR MESSAGE 
014050 172414 44s: (R4),ACO ;SETUP DATA 
014052 173014 cR4), ACO ;@TEST INSTRUCTION 
014054 170203 ;SAVE STATUS 
014056 022703 040204 240204, R3 ;VERFIY STATUS 
014062 001403 ;BRANCH IF GOOD 
014064 104000 sALL ERRORS TO TRAP TO EMT VECTOR 
014066 000234 WORD 234 ;UNIQUE ERROR NUMBER 
014070 002013 -WORD FPPERR nits ppg ADDRESS OF ERROR MESSAGE 
; 
014072 174011 4s: STD ACO,(R1i) sSAVE ACO DATA 
014074 004767 166046 JSR R7,DATVER ;VERFIY DATA 
014100 005767 164734 TST COUNT 
014104 001403 BEQ S$ ;BRANCH IF GOOD 
014106 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
014110 000235 WORD 235 ;UNIQUE ERROR NUMBER 
014112 002013 .WORD FPPERR aa aco MOORES OF ERROR MESSAGE 
+ 
014114 170127 000000 S$: LOFPS 0 ;STORE FPP STATUS 
014120 172414 LOD (R4), ACO ;LOAD ACO 
014122 173014 SUBF  ¢(R4),ACO 30-0 
014124 170203 STFPS ;SAVE STATUS 
014126 174011 STD aco, (Ri) ;SAVE ACO 
014130 022703 000004 fan 04,R3 ;VERFIY STATUS 
014134 001403 BEQ 6$ ;@RANCH IF GOOD 
014136 104000 ERROR :ALL ERRORS TO TRAP TO EMT VECTOR 
014140 000236 WORD 236 ;UNIQUE ERROR NUMBER 
014142 002013 .WORD FPPERR ppg! MOORES OF ERROR MESSAGE 
18AD 
014144 004767 165776 63: JSR R7,DATVER ;VERIFY DATAT 
014150 005767 164664 TST COUNT ; 
014154 001403 Q 7% ;BRANC IF GOOD 
014156 104000 ERROR :ALL ERRORS TO TRAP TO EMT VECTOR 
014160 000237 WORD 237 SUNIQUE ERROR NUMBER 
014162 002013 “WORD FPPERR is aco MOORES OF ERROR MESSAGE 
é 


014164 78; 


014164 MNNRM2 ; 


AREAS 


GLOBAL 
KDJLIA. MAC 


014314 
014316 


MACY11 30A 
15 -MAR -84 


CHS to —— 187 - ‘TEst” ABDF° SUBD - FSRC#0, ACO NE O 


Scat 42 TERT AeOP BEE Pameed nee te eet eeeeenenese 


;*TEST 47 


TST4?; 


1$: 


4$: 


MNNRMS : 





TEST ADDF ,SUBD - FSRC=0, ACO NE 
| eeanbanbonbeseantaseneabesenbsvensdatsooaseoseccodsossocccocese 


$TESTN 
@RECOST,R1 
@TABE,RS 
OTAB2 ,R4 


#200 
CRS),ACO 
Re 


Re 
CR4),ACO 
Sl a 


ACO,¢(R1) 
#0,R3 


i$ 


240 
FPPERR 


@TAB4 ,R4 
R7,DATVER 
COUNT 


241 
FPPERR 


#200 
CR4),ACO 
CRS), ACO 
RS 


ACO,CR1) 
a , 





OTAB4 .R4 
R7 ,DATVER 
COUNT 


243 
FPPERR 


:BAD FPS 


s INCREMENT TEST NUMBER 

sPOINT TO RECEIVED DATA TABLE 
sPOINT TO SOURCE DATA TABLE 
sPOINT TO ACO DATA 

sSET TO DOUBLE FOR CLEAR 


’ 
;SETUP FPP STATUS 
sLOAD FPS 
sLOAD ACO 
s#TEST INSTRUCTION 
oo ht 
5 
3 VERF Ty NEGATIVE RESULT 


;BRANCH 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sPOINT TO EXPECTED DATA 
;VERFIY ACO 
sCHECK RESULT 
sBRANCH IF GOOD 
:ALL ERRORS TO TRAP TO EMT VECTOR 


sUNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 








sBAD AC 
SSET STATUS TO DUOBLE NODE 
LOAD 


IF GOOD 
ALL ERRORS TO TRAP 70 EMT VECTOR 
ERROR 
; ADDRESS OF ERROR MESSAGE 





:POINT TO EXPECTED 
:VERIFY ACO 


é 
;BRANCH IF GOOD ACO 
3 ALL vg Ry TRAP TO EMT VECTOR 


: UNIQUE NUMBER 
sADDRESS OF ERROR MESSAGE 


;B8AD ACO 


5 8 O66 64666664664066606060606600666066666060660606060000606000000600000000000008 
TES 


s*TEST 50 


FF FFSSSSSESHESSESHSHEHESTKHSSHHHKEKAHSEHHHHHHKASESAHHRSARAARARAALLES 


SUBF - FSRC NE 0, ACO=0 


SEQ 9065 


AREAS 


GLOBAL. 
KDJ11A.MAC 


014410 


014510 


014510 


014510 


MACY11 30A( 1052) 
1S-MAR-84 15:51 


164436 


000210 


164270 
003240 


001276 
001306 


Sle 


- FSRC NE 0, ACO*0 


16:58 PAGE 66 
TEST ADDD, SUBF 


15 -MAR - 84 
TSO 
















TSTSO: 
INC $TES s INCREMENT TEST NUMBER 
MOV @RECOST,R1 sPOINT TO RECEIVED pty TABLE 
MOV OTABE, sPOINT TO ACO DATA TABLE 
MOV @TAB1 ,R4 sPOINT TO FSRC DATA 
MOV #200 ,R2 sSETUP FPP STATUS 
LOFPS Re sLOAD FPS 
LOO C(R5),ACO sLOAD ACO 
(R4),ACO s*TEST INSTRUCTION 
STFPS sSAVE STATUS 
STO a°0,(R1L) sSAVE ACO 
CMP @210,R3 sVERFIY NEGATIVE RESULT 
BEG 18 sBRANCH IF GOOD 
ERROR sALL go! TO TRAP TO EMT VECTOR 
-WORD 244 sUNIQUE ERROR NUMBER 
-WORD FPPERR — ~~ OF ERROR MESSAGE 
5 
18: JSR R7 DATVER sVERFIy ACO 
COUNT sCHECK RESULT 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
| UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sBAD ACO 
28: sSET STATUS TO DUOBLE NODE 
sLOAD ACO Rage A VALUE 
seTEST INSTRUCTION 
sSAVE FRPP STATUS 
sSAVE ACO 
sVERIFY RESULT 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
sBAD SUBD 
38: pda sPOINT TO EXPECTED DATA 
R7 .DATVER sVERIFY aco 
COUNT 3 
24 sBRANCH It GOOD ACO 
: sALL ERRORS TO TRAP TO EMT VECTOR 
“47 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
38AD ATO 
43s: 
MNNRMSG ; 
8s $O66066 666060606 0606600660668006886606068006000060060000006000000000888 
seTEST 51 TEST ADOF, SUBD - EXPCACO) © EXPC(FSRC) 
5 psi ga ka tat ane aa 
TSTS1; 
STESTN s INCREMENT TEST NUMBER 
MOV @3240 ,R2 ISET FIU.FD,FT 
LOFPS Re 
MOV @TAB? ,R4 sSET FSRC 
MOV OTABS RS »sSETUP ACO 


SEQ 9066 


RDJTIA. MAC’ STARA Ag SPOCSP52 > LS-MARGBS 16:98. PARELET co, 


014532 
01 


014726 


012701 


001126 


001316 
165372 
164260 


003200 


001346 
165230 
164116 


Co 


MOV ORECDST,R1 
LOD (R5),ACO 
ADDD (R4). 

STO ACO,(R1L) 

MOV OTABS,R4 

JSR R7, DATVER 

TST 

BEQ is 

ERROR 

250 

FPPERR 
1$: MOV @TABS ,R4 

MOV OTABB,RS 

MOV 3200, 

LOFPS 

LOO (R3), ACO 

ADO (Ra) 

STO ACO,(R1) 

JSR R7, DATVER 

TST COUNT 

BEQ 28 

ERROR 

.WORD 251 

“WORD FPPERR 


2s: 


MXOF 1: 


EXPCACO) = EXPC(FSRC) 


Het TO RECEIVED DATA 
LOAD AC 


SeTEST INSTRUCTION 
sSAVE TEST RESULT 

sPOINT TO EXPECTED DATA 
sVERIFY ACO DATA 


: 

sBRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sBAD Ap00 


;SETUP SAME ACO 
sROUND MODE 


sLOAD ACO 
s@TEST INSTRUCTION 
sSAVE DATA 
; VERIFY ACO 
ry IF GOOD 
ALL ERRORS 10 TRAP 10 EMT VECTOR 


S UNIQUE ERROR NUMBER 
Soe rr “d ERROR MESSAGE 





BF OO6O8606668066088606660066 6806606600600 000660866066686066066006006066688686 
) 


seTEST S2 TEST ADD - EXPC(FSRC) .GT. 


§ § O9S000000006000000005800000006000060C CCC COCREOSODEEDEOSEESELOOEE 
S2 


3 

STESTN 

#3200 ,R2 

R2 

@TAB11 RG 

srasie,as: 

(RS), ACO 

(R4), ACO 

RS 

ACO, (RI) 

+ piceoata 
$ 


252 
FPPERR 


OTABLIA,R4 
R7 ,DATVER 
COUNT 


BEO 2s 
-WORD 253 










s INCREMENT TEST NUMBER 






ACO DATA 
VERIFY FPP STATUS 
sGRANCH IF GLOD 
FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIGUE 2 
ADDRESS OF ERROR MESSAGE 





| 
;BAD FPP STATUS 


sPOINT TO EXPECTED DATA 
= CONTENTS OF aco 


TBRANCH IF GOOD aco 
sALL ERRORS TO TRAP TO EMT VECTOR 
:UNIQUE ERROR NUMBER 


SEQ 9067 


GLOB AW 


KDJLIA,. 


AREAS 
MAC 


014730 


014732 
014736 
014740 
014742 
014746 
014750 
014754 
014760 
014762 
014764 
014766 


014770 
014774 


015116 


MACY11 S3OAC 1052) 1 
15 -MAR - 84 15:51 


005267 
012702 
170102 
012704 


001356 


001376 
165172 
164060 


001426 


163674 
003200 


001456 


D6 


> MARS 16a PARE Of eCESRC) .GT. EXPCACO) 






_WORD FPPERR sADDRESS OF ERROR MESSAGE 
;BAD ACO, SHOULD = FSR 
23: MOV @TAB12,R4 ;POINT TO FSRC DATA 
LOD CRS), ACO sACO 
ADDD (R4).ACO ;@TEST INSTRUCTION 
MOV OTABiSB,R4 ;POINT TO EXPECTED RESULT 
STD ACO,(RL) sSAVE ACO DATA INTO RECDAT 
use R? OATVER ;VERIFY DATA 
BEQ 33 ;BRANCH IF GOOD DAT 
ERROR ALL ERRORS TO TRAP. TO EMT VECTOR 
WORD ;UNIQUE ERROR NUMBER 
"WORD FPPERR sADDRESS OF ERROR MESSAGE 
;BAD ACO DATA 
38%; MOV #3000 ,R2 sGET FPP STATUS DATA 
MOV @TAB14,R4 ;POINT TO FSRC DATA 
MOV eTAB15. RS sPOINT TO ACO DATA 
LOD CRS), ACO ;LOAD ACO 
LOFPS SFPP STATUS = FLOAT, INTERRUPTS ENABLE 
ADDF cRad, ACO 3eTEST INSTRUCTION 
LOFPS ;RESET TO DOUBLE 
STD ACO, CR1) ;RECOST=ACO 
MOV @TAB10,R4 sPOINT TO GOOD DATA 
vsr R? .DATVER ;VERFIY CONTENTS OF ACO 
$ 
BEQ 43 ;BRANCH IF GOOD 
ERROR | sALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 255 ;UNIQUE ERROR NUMBER 
“WORD FPPERR sADDRESS OF ERROR MESSAGE 
;BAD FLOATING ADD 
4s: MOV @TAB16,RS sPOINT TO ACO DATA 
LOFPS sFPP STATUS = FLOAT 
LOF ¢R5),aco :L0AD ACO 
CR4), ACO 3¢TEST INSTRUCTION 
ACO,(R1) 3SAVE ACO _DATA 
@TABL7, RA POINT TO GOOD DATA 
R7 .DATVER 
53 :BRANCH IF GOOD 
3ALL ERRORS TO TRAP TO EMT VECTOR 
256 ;UNIQUE ERROR NUMBER 
; FPPERR sADDRESS OF ERROR MESSAGE 
o BAD FLOATING ADD 
$ 


: 
8 8 OOSO8 086 686680068000688960686006006006600006600606680000000000000000000 


s*TEST 53 TEST ADOD WITH NEGATIVE OPERANDS 


§ §O9OO 8066006660 086686680608060066060600006606680008000000000000868008 


TST53: 
sTESTN : INCREMENT TEST NUMBER 
3200 ,R2 sLOAD FPS VALUE 


MOV 
LOFPS R : 
MOV @TAB21,R4 sDATA ADDRESS FOR ACO AND FSR 


SEQ 9068 


GLOBAL 


AREAS 


KDJ1L1A.MAC 


O15122 


015174 


015176 


015316 


MACY11 a le 
15-MAR-84 15:5 


172414 


001126 
103200 


015220 


15 -MAR -84 
TS3 


1$; 


23; 


1008: 


1018: 


38: 


1028: 


16:58 PAGE 


6 


TEST ADDO WITH NEGATIVE OPERANDS 





(R4),ACO 
(R4),ACO 
RS 


@RECOST,R1 
ACO,C(R1) 
#3210,R5 


is 


257 
FPPERR 


@TAB22 ,R4 
R7,DATVER 
COUNT 


es 
260 
FPPERR 


eTAszi 


1-FSRC! = !ACo! - 
RE 


@TAB2S Ri 
#1018 , BOF PVEC 
(R1),ACO 


264 
FPPERR 
$-ACO! = !FSRC! 


sACO#100200 0 0 O 

s*TEST INSTRUCTION 

sSAVE STATUS 

;POINT TO pace tVvED DATA TABLE 
sSAVE ACO DAT 

s VERIF y STATUS 

s;BRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sPOINT TO EXPECTED DATA 


5 
s VERIFY DATA 

;BRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sPOINT TO FSRC DATA 


si 
s*TEST INSTRUCTION 
sCOPY FPP CC 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
:G0 TO ERROR 
sSAVE FPP STATUS 
geod TO RECEIVED DATA TABLE 
sSAVE ACO DATA 
I VERIFY STATUS 
3BRANCH IF GOOD 
,ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 










PC 
sVERIFY ERROR ADDRESS ON STACK 
:BRANCH IF 
sALL ERRORS TO TRAP TO EMT VECTOR 
ERROR NUMBER 


TORE STACK 
sPOINT TO —— DATA TABLE 
;VERIFY DATA 


sBRANC IF GOOD 
:ALL ERRORS TO TRAP TO EMT VECTOR 
: UNIQUE R 


ERROR 
;ADDRESS OF ERROR MESSAGE 
3BAD ACO DATA 


SEQ 9069 


F 6 














GLOBAL AREAS | MACYIL SOAC1052) 15-MAR-84 16: 
KDJLLA.MAC  15-MAR-84 15:51 753 © P81? RBG GITH NEGATIVE OPERANDS SEQ 9070 
3519 015320 012704 001476 4$: MOV @TAB23,R4 sPOINT TO FSRC DATA 
3520 015324 012701 001456 MOV @TAB21,R1 sPOINT TO ACO DATA 
3521 015330 012737 015360 000244 MOV 0104$ , BOF PVEC ;SETUP FP VECTOR 
3522 015336 012702 003200 MOV @3200,R2 ;LOAD FPS VALUE 
3523 015342 170102 LOFPS R2 
3524 015344 172411 LOD (R1),ACO sLOAD ACO DATA 
3525 015346 172014 DDD (R4),ACO s#TEST INSTRUCTION 
3526 015350 170000 103%: CFCC ;COPY FPP CC 
3527 015352 104000 RROR sALL ERRORS TO TRAP TO EMT VECTOR 
3528 015354 5 265 sUNIQUE ERROR NUMBER 
3529 015356 002013 FPPERR sADDRESS OF ERROR MESSAGE 
3530 :GO TO ERROR 
3531 015360 170203 1048: STFPS R3 sSAVE FPS 
3532 015362 012701 001126 MOV @RECDST,R1 sSAVE ACO 
3533 015366 174011 STO ACO, (R1) , 
3534 015370 022703 103200 CHP ©103200, sVERFIY STATUS 
3535 015374 001403 BEQ ;BRANCH IF GOOD 
3536 015376 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
3537 015400 .WORD 266 sUNIQUE ERROR 
3538 015402 002013 FPPERR sADDRESS OF ERROR MESSAGE 
3539 ;BAD FPS STATUS 
3540 015404 012605 S$: MOV (SP)+,R5 :GET ERROR PC 
3541 015406 7 015350 CMP R5.01038 iVERIFY ERROR ADDRESS ON STACK 
3542 015412 001403 BEQ $ sBRANCH IF GOCD 
3543 015414 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3544 015416 000267 -WORD 267 SUNIQUE ERROR NUMBER 
3345 015420 002015 -WORD FPPERR S 
3547 015422 005726 1058: TST (SP)> ORE STACK 
3548 015424 012704 001506 MOV OTAB24, sPOINT TO EXPECTED DATA 
3549 015430 004767 164512 JSR R7,DATVER 
3550 015434 005767 163400 TST T : 
3551 015440 001403 BEQ &s sBRANCH IF GOOD 
3552 015442 1 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
3553 015444 000270 . WORD SUNTQUE ERROR 
3554 015446 002013 . WORD sADDRESS OF ERROR MESSAGE 
3555 3BAD ACO 
3556 3 Aco! 
3557 015450 012704 001526 6$: MOV sPOINT TO FSRC DATA 
3558 015454 012701 001516 MOV sPOINT TO ACO DATA 
3559 015460 012702 003200 MOV ;LOAD FPS VALUE 
3560 015464 170102 LOFPS : 
3561 015466 012737 000246 000244 MOV :SETUP FP VECTOR 
3562 015474 172411 LOD 3LQAD ACO DATA 
3563 015476 172014 ADOD seTEST INSTRUCTION 
3564 015500 170203 STFPS sSAVE STATUS 
3565 015502 012701 001126 MOV sPOINT TO RECEIVED DATA TABLE 
3566 015506 174011 STD 3 SAVE 
3567 015510 020327 003200 CMP sVERIFY STATUS 
3568 015514 001403 BEQ sBRANCH IF 
3569 015516 104000 ERROR sALL ERRORS TO TRAP TO ENT VECTOR 
3570 015520 000271 . WORD SUNTQUE 
3571 015522 002013 . WORD sADDRESS OF ERROR MESSAGE 
3572 :BAD FPS 
3573 015524 012704 001536 7$: MOV @TAB27,R4 :POINT TO EXPECTED DSATA 
3574 015530 004767 164412 JSR R7,DATVER :VERIFY DATA 


GLOBAL AREAS 
KDJ11A.MAC 


015716 
015720 


015720 


005767 


MACY 23 30A( 1052 ) 
15-MAR-84 15:51 


163300 


5S Oe 16: 3 


98; 


10$: 


11%: 


128: 
3 
+ 
MSB: 


g525c88 gg gets g8ee 55 





8 PAGE 
EST A Bp "OrTH NEGATIVE OPERANDS 


COUNT 
8% 


2e7e 
FPPERR 


!FSRC! 


(R4),ACO 
R3 


@RECOST,R1 
ACO,CR1) 
R3, #3200 


9% 


2735 
FPPERR 


@TAB27 ,R4 
R7,DATVER 
COUNT 


10% 





é 

sBRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sPOINT TO FSRC DATA 

sPOINT TO ACO DATA 

sLOAD ACO DATA 

:*TEST INSTRUCTION 

s;SAVE STATUS 

sPOINT TO RECEIVED DATA TABLE 
sSAVE ACO 


Pes STATUS 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 


sPOINT TO EXPECTED DSATA 
;VERIFY DATA 


IBRANCH TF IF GOOD 
ALL ERRORS TO TRAP TO EMT VECTOR 
NUMBER 


S UNIQUE ERROR 
s ADDRESS OF ERROR MESSAGE 


sBAD FPS 


sPGINT TO FSRC DATA 


STA 
sPOINT TO RECEIVED DATA TABLE 


3SA 
sVERIFY STATUS 
:BRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 











;BAD FPS 


sPOINT TO EXPECTED a 
;VERIFY DATA 






sBRANCH IF GOOD 

;ALL ERRORS TO TRAP TO EMT VECTOR 
: ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


FF FFSSESHSSSSSHSSHSSHSSHSHHSHSSSSHSSHHAASHHHAAHEREAAAARSHOTRAZABZAAALE 


SEQ 0071 


GLOBAL 


AREAS 


KDJ11A.MAC 


MACY11 30A( 1052) 
1S5-MAR-84 15:51 


005267 
012702 
170102 


163060 
003200 


001456 
001126 


003204 


001256 
164150 
163036 


001406 


003204 


001256 
164074 
162762 


162712 
003200 


Ho 
8 PAG 


15-MAR-84 16; 7 
TS4 EST SUB Mare EXP[ ACO) *EXP(FSRC] 





















;*TEST 54 TEST SUB WITH EXP[ACO)=EXP([FSRC) 
3 igi 
TS : 
$TESTN fee i TEST NUMBER 
#3200 ,R2 sLOAD FPS DATA 
R2 sLOAD FPS 
@TAB21,R4 sPOINT TO FSRC DAT 
@RECDOST,R1 sPOINT TO ACO RECEIVED DATA TABLE 
(R4),ACO sLOAD er 
CR4),ACO *TEST INSTRUCTION 
RZ 3 SAVE STAT US 
ACO,(R1) sSAVE ACO INTO RECDST 
63204 ,R3 ; VERIFY TUS 
is sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
277 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
sB8AD FPS STATUS 
18; @TABG ,R4 sPOINT TO EXPECTED DATA 
R7 ,.DATVER ;VERIFY ACO 
COUNT $ 
es sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
300 sUNIQUE ERROR 
FPPERR sADDRESS OF ERROR MESSAGE 
sBAD ACO 
2s: @TAB14 sPOINT TO FSRC AND ACO DATA 
Ca) .AO 3LOAD ACO DATA 
(R44), s*¢TEST INSTRUCTION 
;SAVE FPS 
sSAVE ACO INTO RECDST 
sVERIFY FPS 
;BRANCH IF GOOD 
;ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sBAD ACO 
38: sPOINT TO EXPECTED DATA 
;VERIFY ACO 
:BRANCH IF GOOD 
2ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
:BAD ACO 
4$: 
3 
MNRM ; 
§ 849S0660606666646666466 60606066666 66600606 06606000000000600000028808 
s*TEST 55 TEST 
58902206 66666666660664666486060646600006606 6800000000000 0000000R000RaRe 
TSTS55: 
INC sTESTN ; INCREMENT TEST NUMBER 
MOV #3200 ,R2 ;L0AD FPS 


LOFPS R22 : 


SEQ 9072 


GLOBAL 


AREAS 


KDJ11A.MAC 


016112 
016114 


016144 


MACY11 30A( 1052) 
15-MAR-84 15:51 


012705 


012701 
012705 
172411 
173015 


012701 


001606 
001576 


001126 
0016356 


164012 
162700 


001616 
001626 


001126 


163750 
162636 





15-MAR-84 16:58 PAGE 73 
T55 TEST NORMALIZE 
MOV @TAB31,R5 
MOV @TAB3O.R1 
LOO €R1),ACO 
SUBD €RS5S),ACO 
STFPS 
V @RECDST ,R4 
STO ACO, (R4) 
MOV @TAB34 ,R1 
JSR R7, DATVER 
TST COUNT 
BEG i$ 
ERROR 
. WORD 303 
. WORD FPPERR 
18; @TAB3S2,R1 
@TABSS,RS 
(R1), ACO 
(R5). ACO 
@RECDST.R1 
ACO,CR1) 
R7,DAT 
COUNT 
es 
304 
FPPERR 
2s: 
MUVAD: 


lo 


sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
sLOAD ACO 

s*TEST INSTRUCTION 


sPOINT TO RECDATA 


sSAVE ACO 
sPOINT TO EXPECTED DATA 
s VERIFY DATA 


;BRANCH IF GOOD 

7; ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sACO DATA 
sFSRC DATA 


sLOAD ACO 
3#TST INSTRUCTION 
3556 LEFT SHIFTS 
;SAVE DATA 
8 


. 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


8 $9O8040060000006000006660000600006600600060006000006000000000000066008 


TEST 56 TEST ADDD WITH OVERFLOW AND 


ogi aaa tt caine arenes 






TSTS6: 
INC 
MOV 
LOFPS 
MOV 
MOV 
LOO 
ADDO 
STFPS 
MOV 
STO 
CMP : 
BEG 
ERROR 
.WORD 305 
.WORD FPPERR 
1%; MOV @TABE ,R4 
JSR R7,DATVER 
TST OUNT 





s INCREMENT TEST NUMBER 
3 SETUP -— POINT STATUS 


sLOAD 
3sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
‘oaee INSTRUCTION 


FPS 
:POINT TO RECEIVED DATA TABLE 
:SAVE ACO RESULT 

S VERIFY STATUS 

BRANCH IF 


$ IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


:POINT TO EXPECTED DATA 
2: VERIFY DATA 








3BAD FPS 


SEQ 0073 


GLOBAL 


AREAS 


KOJ11A.MAC 


016372 


016374 
016376 


MACY11 30A( 1052) 
15-MAR-84 15:51 


001200 


001646 
001646 


016350 


001126 
101206 


016340 


15-MAR -84 
TS6 


000244 


16:58 PAGE 
TEST ADDD. WITH OVERFLOW AND UNDERFLOW 
BEQ 2s 
ERROR 
. WORD 306 
.WORD FPPERR 
;OVERFLOW TRAPS E LE 
MOV 1200 ,,R2 
LOFPS 
MOV @TAB40 ,R4 
MOV @TAB40,R1 
LOD (R1),ACO 
MOV 43% ,BOFPVEC 
R4),ACO 
23%: a 
. 307 
. FPPERR 
S$; STFPS 
MOV @RECOST ,R1 
STO ACO,.CR1) 
CMP 0101206, RS 
BEQ 
ERROR 
-WORD 310 
-WORD *FPPERR 
48: MOV CSP )+,RO 
CMP @25%,R0 
BEQ Ss 
ERROR 
-WORD 3il 
. WORD 
S$: MOV CSP )+,RO 
MOV TAB6 
JSR 
TST 
BEQ 
ERROR 
WORD 3i2 
. WORD 
s UNDERF LOW 
78: MOV 4 
LOFPS 
MOV OULDTRP , BOF PVEC 
MOV @TAB7 Ra 
MOV @TAB41 Ri 
LOD (R1),.aACO 
ADODD CR4), ACO 
STFPS R35 
MOV @RECOST ,R1 
STO ACO,CR1) 
CMP 204 RS 
BEQ 


Jo 








SEQ 9074 


s;BRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sBAD ACO 


sSETUP FLOATING POINT STATUS 
sLOAD FPS 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
3 CHANGE TRAP VECTOR 
3*TEST INSTRUCTION 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR 
sADDRESS OF ERROR MESSAGE 
sFAILED 16 TRAP ON OVERFLOW 
sSAVE FPS 
;POINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
;VERIFY STATUS 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sBAD FPS 
— STORED PC 


;BRANCH IF RETURN Ay ay IS GOOD 
:ALL ERRORS TO TRAP TO EMT VECTOR 
QUE ERROR 


8 NUMBER 
sADDRESS OF ERROR MESSAGE 
sBAD RETURN ADDRESS 
;CLEAN UP STACK 
sPOINT TO EXPECTED DATA 
: IFY DATA 


sBRANCH IF GOOD 
:ALL ERRORS TO TRAP TO EMT VECTOR 
;UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sBAD ACO 


sSETUP FLOATING POINT STATUS 
3LOAD FPS 
WILD po VECTC? 














OAD ACO WITH TEST DATA 
: orest INSTRUCTION 


sSAVE FPS 
:POINT TO a DATA TABLE 
sSAVE ACO RESUL 


:VERIFY STATUS 
sBRANCH IF GOOD 


KO 





















GLOBAL AREAS MA 111 ,30A(1052) 15-MAR- 16:58 PAGE 75 
KOJI1A.MAC 15- 5:51 156 TEST ABDD WITH OVERFLOW AND UNDERFLOW =e COTS 
3799 016506 104000 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
3800 016510 000313 -WORD 313 ;UNIQUE ERROR NUMBER 
ae 016512 002013 . WORD FPPERR ann no OF ERROR MESSAGE 
H 
3803 016514 012704 001256 8$: MOV @TAB6E,R4 :POINT TO EXPECTED DATA 
3804 016520 004767 163422 JSR R7,DATVER SVERIFY DATA 
3805 016524 005767 162310 TST COUNT 
3806 016530 001403 BEQ 93 ;BRANCH IF GOOD 
3807 016532 104 ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
016534 000314 314 ;UNIQUE ERROR NUMBER 
016536 002013 FPPERR ;ADDRESS OF ERROR MESSAGE 
3810 ;BAD ACO 
3811 ;UNDERFLOW TRAPS ENABLED 
3812 016540 012702 002200 98: MOV #2200 ,R2 ;SETUP FLOATING POINT STATUS 
3813 016544 170102 LOFPS R ;LOAD FPS 
3814 016546 012737 016600 000244 MOV 0118, @0FPVEC ;REPOSITION TRAP VECTOR 
3815 016554 012704 00127 MOV @TAB7,R4 ;POINT TO FSRC DATA 
3816 016560 012701 001656 MOV @TAB41,R1 sPOIN? TO ACO DAT 
3817 016564 172411 LOD CR1),ACO ;LOPQ ACO WITH TEST DATA 
3818 016566 172014 ADOD R4),ACO ;eTEST INSTRUCTION 
3819 016570 170000 10s: CFCC sCOPTY FPP CC 
3820 016572 104000 E ALL ERRORS TO TRAP TO EMT VECTOR 
3821 016574 000315 315 SUNIQUE ERROR 
3822 016576 002013 FPPERR sADDRESS OF ERROR FESSAGE 
3823 FAILED TO TRAP ON UNDERFLOW 
3824 016600 17 118: R3 sSAVE FPS 
3825 016602 012701 001126 @RECDST Ri ;POINT TO RECEIVED DATA TABLE 
3826 016606 174011 ACO, (Ri ;SAVE ACO RESULT 
3827 01661C 022703 102210 #102210,R3 ;VERIFY STATUS 
3828 016614 001403 12% ;BRANCH IF GOOD 
3829 016616 1 ;ALL ERRORS TO TRAP TO EMT VECTOR 
3830 016620 000316 316 ;UNIQUE ERROR NUMBER 
3831 016622 002013 sADORESS OF ERROR MESSAGE 
38 :BAD FPS 
3833 016624 012605 128: ;GET ERROR PC 
3834 016626 020527 016570 sVERIFY ERROR ADDRESS ON STACK 
3835 016632 001403 :BRANCH 
3836 016634 1 :ALL ERRORS TO TRAP TO EMT VECTOR 
3837 016636 000317 ;UNIQUE ERROR NUMBER 
3838 016640 002013 ;ADDRESS OF ERROR MESSAGE 
3839 :BAD ERROR RETURN ON STACK 
3840 016642 005726 138: ;RESTORE STACK 
3841 016644 012704 00 :POINT TO EXPECTED DATA 
3842 016650 004767 163272 :VERIFY DATA 
3843 016654 005767 162160 
3844 016660 001403 sBRANCH IF GOOD 
3845 016662 104000 3ALL ERRORS TO TRAP TO EMT VECTOR 
3846 016664 000320 3UNIQUE ERROR 
3847 016666 002013 sADORESS OF ERROR MESSAGE 
3848 :3BAD ACO 
3849 ;UNDERFLOW WITH TRAPS DISBLED - NON-ZERO RESULT 
3850 016670 012702 000200 148: MOV @200 ,R2 ;SETUP FLOATING POINT STATUS 
3851 016674 170102 LOFPS ;LOAD FPS 
3852 016676 012737 002106 000244 MOV OWLDTRP, BOF PVEC ;RESTORE TRAP VECTOR 
3853 016704 012704 001656 @TAB41,R4 ;POINT TO FSRC DATA 
3854 016710 012701 001666 MOV @TAB42,R1 :POINT TO ACO DATA 


AREAS 


GLOBAL 
KDJ11A.MAC 


016714 


016742 
016744 


017072 


017074 
017100 
017104 
017110 
017112 
017114 
017116 


MACY11 3S0AC 
15-MAR-84 15: 


172411 


001126 


001126 


017020 


102204 


.ggse) 83-00 


158: 


sUNERFLOW WITH TRAPS ENABLED - NON-ZERO 
168: MO #102200 ,R2 


178: 


183: 


19%: 


L6 


16: PA 76 
fest ABOD WITH OVERFLOW AND UNDERFLOW 









(R1),ACO LOAD ACO WITH TEST DATA 
(R4),ACO ,@TEST INSTRUCT ION 
R35 sSAVE FPS 
@RECDOST,R1 sPOINT TO RECEIVED DATA TABLE 
ACO,CR1L) s;SAVE ACO RESULT 
204 ,R3 sVERIFY STATUS 
15% sBRANCH IF GOOD 
sALL rg TO TRAP TO EMT VECTOR 
321 sUNIQUE ERROR 
FPPERR sADDRESS OF ERROR MESSAGE 
;BAD FPS 
@TABE ,R4 sPOINT TO 7. teree DATA 
R7, DATVER ;VERIFY DAT 
COUNT 
16% ;BRANCH IF GOOD 
sALL ERRORS TO a. TO EMT VECTOR 
322 sUNIQUE ERROR 
FPPERR sADDRESS OF ERROR MESSAGE 
sBAD ACO 
RESULT 
sSETUP FLOATING POINT STATUS 
Re sLOAD F 
otreae nn sRESTORE TRAP VECTOR 
@TAB41 ,R4 sPOINT TO FSRC DATA 
@TAB4e "Ri sPOINT TO ACO DATA 
CR1),ACO :LOAD ACO WITH TEST DATA 
(R4 ,eTEST INSTRUCT ION 
sALL ERRORS TO TRAP TO EMT VECTOR 
323 sUNIQUE ERROR 
FPPERR ; ADDRESS OF ERROR MESSAGE 
3NO TRAP ON UNDERFLOW 


sSAVE FPS 

POINT TO RECEIVED DATA TABLE 

sSAVE ACO RESULT 

: SAVE STACK CONTENTS 

;CLEAN UP ST 

; VERIFY RETURN ADDRESS 

sBRANCH IF 

sALL ERRORS TO TRAP TO EMT VECTOR 
ERROR NUMBER 























324 ; UNIQUE 
FPPERR i ADDRESS OF ERROR MESSAGE 

:BAD RETURN ADDRE 
#102204 ,R3 3;VERIFY STATUS 
203 ;BRANCH GO0O0D 

2ALL ERRORS TO TRAP TO EMT VECTOR 

325 sUNIQUE ERROR NUMBER 
FPPERR on ee OF ERROR MESSAGE 

’ 
@TAB4$ .R4 :POINT TO EXPECTED DATA 
R7, DATVER : VERIFY DATA 
COUNT 
2is :8R 


ANCH IF GOOD 
;ALL ERRORS TO TRAP TO ENT VECTOR 
:UNIQUE ERROR NUMBER 


326 
FPPERR sADDRESS OF ERROR MESSAGE 


SEQ 9076 


GLOBAL. 


AREAS 


KDJ11A.MAC 


017120 


017120 


017120 
017120 


017124 


017212 


017214 
017216 


017270 
017272 


017274 


MACY11 30A( 1052) 
15-MAR-84 15:51 


005267 
012702 


001706 
001426 


001756 


15-MAR -84 
TS6 


218: 


MLOC: 


M6 


16:58 PAGE 77 
TEST ADDO WITH OVERFLOW AND UNDERFLOW 


sBAD ACO 


ee ag teat there deen tne eboesansosesooeososonesesee 


TEST LOCFO, LOCOF 


;#TEST 57 


bE PAAAASAREHASEEEEHOASASEAECEAEEEOREREEEEEEEEEEEEAEEEEAEREEHEDEEESSE 


$TESTN 


TSTS?: . 

; TRUNCATE 
MOV 
LOFPS 


1$: MOV 


4$: 








2ACO 
R4, @TABAS +10 


$31 
FPPERR 





R3 
@RECOST,R1 
ACO, (RL) 
@0,R3 

as 

332 

FPPERR 
OTAB49,R4 


s INCREMENT TEST NUMBER 
SETUP ~~ POINT STATUS 


sLOAD F 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
;#TEST INSTRUCT ION 
sPOINT TO RECEIVED DATA TABLE 
VE RESULT 


sSAVE ACO 
sVERIFY AUTO-INC 
+r IF GOOD AUTO-INC 
ALL ERRORS TO TRAP TG EMT VECTOR 
S UNIQUE ERROR NUMBER 
sADDORESS OF ERROR MESSAGE 
3BAD AUTO-INC 
sPOINT TO ee DATA 
sVERIFY DATA 
sBRANCH IF 


GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
; UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
;BAD ACO 


;SETUP FLOATING POINT STATUS 
sLOAD FPS 


sPOINT TO FSRC a 
sPOINT TO ACO DA 
sLOAD ACO + ae Test DATA 
3; @TEST INSTRUCTION 
; VERIFY AUTOLINC 


3 GOOD 
;ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 





:POINT TO RECEIVED DATA TABLE 
sSAVE ACO RESULT 
iVERIFY STATUS 
sBRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


;BAD FPS 
:POINT TO EXPECTED DATA 





SEQ 0077 


AREAS 


GLOBAL. 
KDJ11A.MAC 


174011 
022703 


os yi SOAC 4052 ) 15-MAR - 784 16: | 


162642 
161550 


043243 


N6 

(Ber oe LOCOF 
R7,DATVER 
COUNT 

BEG S$ 

333 

FPPERR 

#200 ,R2 

R2 


R3 
#5203,ACO 
R3 
INC RS 
RS 
03,R35 
6$ 
-WORD 334 
.WORD FPPERR 


sNEGATIVE OPERANDS 
6%: @ 





sBAD ACO 


;VERIFY DATA 


sBRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDORESS OF ERROR MESSAGE 


a FLOATING POINT STATUS 
sLOAD FPS 


s*TEST INSTRUCTION 


sIF LOCFD WORKED, R3 SHOULD=-3 
sVERIFY CORRECT bROGRAN FLOW 

s6R IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


;BAD PROGRAM FLOW 


sSETUP FLOATING POINT STATUS 
LOAD FPS 


: 
sPOINT TO FSRC DATA 
sPOINT TO ACO DATA 

sLOAD ACO WITH TEST DATA 
or INSTRUCTION 


;POINT To wy DATA TABLE 
sSAVE ACO RESUL 
; VERIFY STATUS 


:BRANCH IF GOOD 

SAL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 











3BAD FPS 
sPOINT 1 Sverre DATA 
; VERIFY DATA 
;BRANCH IF GOOD 


:ALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 





sBAD ACO 


:SETUP FLOATING POINT STATUS 
sLOAD FPS 

:POINT TO FSRC pore 

sPOINT TO ACO DATA 

sLOAD ACO WITH TEST DATA 
SAVE 2@TEST INSTRUCTION 
:POINT TO RECEIVED DATA TABLE 

ACO RESULT 


: SAVE 
: VERIFY STATUS 


SEQ 9076 


GLOBAL 


AREAS 


KDJL1LA.MAC 


017670 
017672 


017674 
017700 
017706 
017710 
017716 
017720 


MACY11 30A( 1052) 
15-MAR-84 15:51 


001256 
162420 
161306 


000001 
000114 
000000 


000030 
177777 
177777 





B / 





15-MAR-84 16:58 PAGE 79 
TS? TEST LOCFD, LOCOF 
BEQ 9% s;BRANCH IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 337 sUNIQUE ERROR NUMBER 
. WORD FPPERR BAD ~~ OF ERROR MESSAGE 
i 
98; MOV OTABE ,R4 sPOINT TO EXPECTED DATA 
JSR R7,DATVER sVERIFY DATA 
TST COUNT 
BEQ 108 sBRANCH IF GOOD 
ERROR 5 ALL rig TO TRAP TO EMT VECTOR 
. WOR 340 sUNIQUE ERROR NUMBER 
. FPPERR sADDRESS OF ERROR MESSAGE 
3B8AD ACO 
108; 
? 
MCMPD : 
83 9O00F6000000000006000606066666666660666060666666606666066666606666666666 
:*TEST 60 CMPD 
name anes pesnssoncansennnosasoasosoaosee 
TST60: 
INC STESTN s INCREMENT TEST NUMBER 
: CMPD WITH FRSC*«ACO*0 
CLR SOF LAG sSIGNAL THAT ACO REMAINS CONSTANT 
JSR R7,CMPRIN sROUTINE TO TEST DATA 
000009 . WORD 0, }, 0,0 sACO AT START 
000000 . WORD 0,0,.0,0 3sF SRC AT START 
-WORD 200 sFPS AT START (0D) 
s CMPD WITH me i gt EXP[ACO)=0 
001042 MOV @1,80F LAG sSIGNAL THAT ACO WILL - O 
JSR R77, CMPRIN sROUTINE TO TEST DATA 
000000 -WORD 0,0,0,125252 sACO AT START 
000123 . WORD 100,.22,123,123 sFSRC AT START 
. WORD 200 3FPS AT START (D) 
WORD 204 :FPS AT END 
s CMPD FSRC>EXP[ACO)-0 
CLR OOF LAG sACO REMAINS UNCHANGED 
JSR R7, CMPRIN sROUTINE TO aid DATA 
012346 -WORD 400,12346,12346,23 :ACO AT STAR 
. ¥ORD 200 2FPS AT START (DO) 
WORD 210 3*-PS AT END 
s CMPD FSRC=ACO>0 
JSR R7,CMPRIN ie ate 4 = DATA 
177777 . WORD 77777, -1,-1,-1 3ACO AT 
177777 «WORD 77777, -1.-1.-1 3F SRC AT START 
. WORD 200 3FPS AT START (0) 


SEQ 9079 


GLOBAL 
KDJLIA. 


4079 
0 


72e 


AREA 
MAC 
017 
017724 


020056 


000204 
000167 


000126 


. WORD 


JMP 


> ps -MAR Ba PB SP52?  IS-MAREBS 16:58. 7 PAGE, 80 


204 


HOP44 


Li 


sFPS AT END 
sHOP OVER SUBROUTINE 


3 oXeXeXeXaXaXeXaXaXeXaKaXaXaeXaXeXeXaXaXeXaXeKeXexexeXeXaxexX 
3 @XaXeXaXeXaXaXaXaXaXaXaXaeXaXeXeXaXaXaXKakKaXeXexexeXexXexXeXeX 
sCOMPARE ROUTINE DATA TABLES 


18: 


4&8: 


5%; 
HOP44; 


MDIVF ; 


ACO 
FSRC 


FPS BEFORE EXECUTION 
we EXECUTION 


§ OXOXeXeXaXaXeXeXaXeXaXexeXeXaXaeXeXaXeXeXeXeXeXaXexXeXexexex 
3 OXaXeXaXeXaXeXaXaXaXaxeXaXaXaXeXaeXeXeXeXeXeXeKeXeXeXexeKex 


CSP )+,R5S 
#200 ,R2 
R2 


RS,R4 
ag 





s RETURN ADDRESS TO USE AS POINTER 
FOR LOAD 


SET y DOUBLE MODE 
sLOAD FPS 
;POINT TO FSRC DATA 
5 
sPOINT TO ACO DATA 
sLOAD ACO WITH TEST DATA 
SGET TEST FPS 
sLOAD TEST FPS 
s*TEST TNSTRUC TION 
sSAVE FPS 
3 SET Fpp' TO DOUBLE 
sPOINT TO RECEIVED DATA TABLE 
VE ACO RESULT 


3SA 
S VERIFY STATUS 
IF 











i6R GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE NUMBER 


ERROR 
sADDRESS OF ERROR MESSAGE 
sBAD FPS 
sSEE IF ACO REMAINS UNCHANGED 
ey IF ACO STAYS THE SAME 
3 = 


:G0 VERIFY DATA 
:POINT TO EXPECTED DATA 
3 VERIFY DATA 





sBRANCH IF GOOD 
FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
:ADDRESS OF ERROR MESSAGE 
sBAD ACO 
;RE TURN 


SF FSSSSESHSSSSSSHESSHHSSSHSHASEHHSHHHHHHHEHSHSSHKREKEHRRRSASESEBERELEE 


SEQ 9080 


GLOBAc 


AREAS 


KDJ1L1A.MAC 


005267 
012757 


012737 
004767 


000000 
000100 


160722 
000002 
000 706 
000027 
000000 
000027 


000001 


001042 


001042 


001042 


ISMAR“Ba t5sS >) TS MARGBD 16:98. ,PA0G, 8 


D / 


SESSOSAHHHSHEHEHEHAREEEEEEEEEEEHEEAEEEROEEHEOOREHEREAEAEAEELEOOEES 


;@TEST 61 TEST OIVF 
TST61: 
INC $TESTN 
31/EXP(AC )=FSRC=0 
MOV 02 ,80FLAG 
JSR R7,OVF SUB 
. WORD 100,27 
. WORD . 
. WORD 100,27 
WORD 40000 
. WORD 140000 
-WORD 4 
32/AC*EXP([FSRC)=0 
: TRAPS ENABLED 
MOV @1,80FLAG 
JSR R7,OVF SUB 
-WORD 0,0 
~ WORD 100 ,0 
WORD 0,0 
-WORDB O 
. WORD 100000 
WORD 4 
33/7F SRC >ACO#0 
CLR AG 
JSR R7,OVF 
.WORD 177,234 
WORD 4100.0 
. WORD e 
. WORD 7400 
WORD 7404 
34/ACO>EXP[FSRC ) 





555555" 








uw 
a 
s 
6 
m 
& 
~ 
a 


36/AC =F 


g5555°°"55555"° 


s INCREMENT TEST NUMBER 


sNO INTERRUPT, BUT FEC 
100 TEST 


300 TEST 


300 TEST 


sRESULT 
3; TEST FPS 





SEQ 90861 


GLOBAL 


AREAS —_MACY11 30A(1052) 15-MAR-84 16: 
KDJIIA.MAC 15-MAR-84 15:51 re1 °° #851696 8° 


001042 
000454 
125252 
000000 
070707 


001042 
000424 
177777 
000000 
125252 


37/FSRC>0<ACO, R 
CLR 
JSR 
. WORD 
WOR 


oo°o 


. WORD 
38/7AC>0<F SRC 

CLR 

JSR 


0 

> 

g 
eeP55555 


310/AC>FSRCO>0 
CLR 


Aeeweee#e 


gbbbs*°55085* 


:11/7FSRC 


312/AC<0 


hh 


D> 
~4 
m 


313/TRUNC 


rs 


OUND 


QOF LAG 


R7,OVF SUB 


c / 


77777, La5252 
77652 ,070707 
7400 


7400 


BOF LAG 
eaasy wn 


55377,.-1 
5 0 
arene SesaSs 











sNO INTERRUPT 
300 TEST 


sRESULT FPS 


sNO INTERRUPT 
300 TEST 


sRESULT 
3 TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
300 TEST 


sRESULT 
3; TEST FPS 
sRESULT FPS 


sNO INTERRUPT 
s00 TEST 


sRE 
s TEST FPS 


RESULT 
» TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
200 TEST 


;RESULT 
3 TEST FPS 
sRESULT FPS 


SEQ 9082 


GLOBAc 


AREAS 


KDJ11A.MAC 


MACY11 30A(1052) 15-MAR-84 
iS-MAR-84 15:51 Tél 


177700 


004767 
000200 


004767 
00200 


004767 


623456 
157716 


001042 


001042 


001042 


001042 


314/ROUND TEST 


CLR 
JSR 
. WORD 


a585 


~ 
ui 
~ 
o 
< 
mi 
a 
a 
= 


ges 


3 16/0VERF 


cr 
2 
ob 


sO0IVF 
$ 


re eee 


16:58 PAGE 83 
TEST OIVF 


1100 
101112 


TRAPS OI 
#2 


ie 








76777 23456 
71525, 157716 
2537 

102500 


F 7 


0 
INTERRUPTS ENABLED 
#1,Q0FLAG 
R7,OVF SUB 
177700,0 


200,0 
137700,0 


SABLED 
LAG 


:NO INTERRUPT 
300 TEST 
3ACO 
sRESULT 
+ TEST FPS 
sRESULT FPS 
s INTERRUPT 
300 TEST 
3ACO 
sF SRC 
s TEST FPS 
P T FP 
3F 
sNO INTERRUPT 
300 TEST 





HOP 10 2G0 TO NEXT TEST 
3 oXeoXeXeXeXeXeXeaXeXeXeXeXaXeXeaXeXeXeaXeXeXeXeXeXeXeXeaXeXeaxex 
eae nen eR eR OR eNeR 


FSRC 
FPS BEFORE EXECUTION 
wey EXECUTION 


SEQ 9083 


GLOBAL. 


AREAS 


OL 
KDJL1A.MAC 


170102 


174414 
170001 


021064 
000200 


000004 
000014 


021040 


000244 


001042 


001042 


GG / 


ssARA EA PPSCARS?? AS-HMRGGE 16:4B, Pap, 84 


; 
3 OXaXOXaXaXaXaXeXaXaXaXeXaXaXaXaXeXaXaXaXaX eX eka eKaxeKerax 
tag G27 ca Rakai aa hase 


OVF SUB: MOV (SP)+,RS 
MOV 050% , BOF PVEC 
MOV 200 ,R2 
LOFPS 2 
MOV RS,R4 
ADD @4,R4 
LOO CRS),ACO 
MOV 14(R5),Re2 
LOFPS Re2 
: 
OIVF (R4),ACO 
= SE TF 


SINSTRUCTION DIONT TRAP 
BIT “1, 






s RETURN ADDRESS TO ise AS POINTER 
sREDIRECT TRAP VECTOR 

;SET DOUBLE MODE FOR LOAD 
sLOAD FPS 

sPOINT TO FSRC DATA 


sLOAD axe 2 Dg TEST DATA 
sGET TEST FPS 
sLOAD TEST FPS 


s*TEST INSTRUCTION 
sWAIT FOR POSSIBLE FPA TRAP. 















GF LAG iVERIF y A NO TRAP CONDITION 
BEQ ‘BRANCH IF GOOD 
ERROR L ERRORS TO TRAP TO EMT VECTOR 
.WORD 343 UNIQUE ERROR NUMBER 
"WORD FPPERR ;ADORESS OF ERROR MESSAGE 
;INSTRUCTION SHOULD HAVE TRAPPED 
MP 23 ;REJOIN CODE 
3 
: INSTRUCTION TRAPPED 
50s: BIT #1, Q0FLAG :SEE IF EXPECTING A TRAP 
BNE Sis ;BRANCH IF EXPECTING A TRAP 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
WORD SUNTQUE ERROR NUMBER 
WORD sADDRESS OF ERROR MESSAGE 
sINSTRUCTION WASNT SUPPOSE TO TRAP 
UMP ;REJOIN CODE 
Sis: MOV 3SEE IF BC = INSTRUCTION 
om aa STACK 
BEQ 2 SBRANCH IF GOOD COMPARE 
ERROR 3ALL ERRORS TO TRAP TO EMT VECTOR 
.WORD «= - 345 SUNIQUE ERROR 
“WORD ;ADDRESS OF ERROR MESSAGE 
3PC WAS INCORRECT 
;COMMON CODE FOR TRAP AND NO TRAP 
23: STFPS) RB ;SAVE FPS 
MOV #200, R2 3SET FPP TO DOUBLE 
LOFPS RR? 
MOV @RECDST .R1 ;POINT TO RECEIVED DATA TABLE 
STD (RL) 3SAVE ACO RESULT 
CMP 16CR5),R3 :VERIFY STATUS 
BEQ 43 IF GOOD 
ERROR L ERRORS TO TRAP TO EMT VECTOR 
.WORD 346 SUNIQUE ERROR NUMBER 
"WORD FPPERR nad ppg! DORESS OF ERROR MESSAGE 
3 
3$; MOV RS,R4 ;POINT TO EXPECTED DATA 


SEQ 9084 


GLOBA. 
KDJLLA. 


005267 


012737 
004767 


012737 
004767 


000010 
160736 
157642 


001042 


001042 
000400 


001042 


4$; 


5$; 


6%; 


78; 


HOP1O: 
MOIVO: 


El / 


010,R4 
R7.DATVFR 
OUNT 


S$ 


347 
FPPERR 


BOF LAG 

6% 

20(R5) 
20(RS),R4 
R4,R1 

7$ 


350 
FPPEPR 


22(RS) 


;VERIFY DATA 


sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
sBAD ACO 


GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 

;B8AD FEC 

;RETURN FROM TEST 


ee a Re ee en ee neennnsaonesaceoooeonsonsose 


3;*@TEST 


TEST OIvD - 


| atc ade acne aia allele eens 


TST62: sveste 
31/AC=FSRC*0 TRAPS DISABLED 


z 








MOV e2, 
JSR R7,DVDSUB 
.WORD 0,0,0.1 
.WORD  100,0,0,0 
.WORD 0,0,0.1 
.WORD 40000 
.WORD 140000 
[WORD 4 

:2/FSRC*0, TRAPS ENABLED 
MOV 01, 90F LAG 
JSR —s RR? .DVDSUB 
.WORD  402,0,0,0 
.WORD 0,0,0,0 
.WORD  402,0,0,0 
.WORD 200 
-WORD 100200 
“WORD 4 

; 3/ROUND 
CLR @OFLAG 
JSR R7,OVOSUB 
.WORD  36300,0,0,1 


s INCREMENT TEST NUMBER 
sNO INTERRUPT 
300 TEST 

3ACO 

3F SRC 

sRESULT 

; TEST FPS 

sRESULT FPS 

3sFEC 


3s INTERRUPT 
3:00 TEST 
: 


3F SRC 
;RESULT 
3: TEST FPS 
sRESULT FPS 
:FEC 


:NO INTERRUPT 
360 TEST 
;ACO 


SEG 


/ a¢ 
006% 


GLOBAL. AREAS 
KDJL1LA.MAC 


MACY11 30AC(1052) 15-MAR-84 
15-MAR-84 15:51 T62 


012737 
004767 
100200 
000000 


001042 
000334 


00000 
000112 
000000 


000000 
000000 
177777 





I/ 


16:58 PAGE 86 





TEST DIVO - 

. WORD 140300,0,0,0 sF SRC 

. WORD 134200,0,0,1 sRESULT 

-WORD 200 s TEST FPS 

-WORD 210 sRESULT FPS 
34/TRUNCATE 

CLR BOF LAG sNO INTERRUPT 

JSR R7,O0VOSUB 300 TEST 

. WORD 34300,0,0,1 3ACO 

. WORD 1403500,0,0,0 sF SRC 

. WORD 134200,0,0,0 sRESULT 

WORD 240 3; TEST FPS 

-WORD 250 sRESULT FPS 
3S/ROUND NEGATIVE AC, FSRC 

CLR @OF LAG sNO INTERRUPT 

JSR R7,OVOSUB :00 TEST 

. 177642,0,0,151 ;ACO 

. WORD 166600 ,0,0, 123 sF SRC 

WORD 51242,0,0,0 sRESULT 

-WORD 200 s TEST FPS 

.WORD 200 sRESULT FPS 
36/TRUNCATE NEAGTIVE AC, FSRC 

CLR BOF LAG sNO INTERRUPT 

. WORD 177642,0.0,151 3ACO 

-WORD 166600,0.0,123 ;FSRC 

. WORD $1241,-1.-1,-1 sRESULT 

WORD 240 3s TEST FPS 

«WORD 240 sRESULT FPS 
37/AC=F SAC 

CLR BOFLAG sNO INTERRUPT 

JSR R7, OVDSUB 3:00 TEST 

-WORD $5521,47621,100333,-1 ACO 

-WORD 55521,47621,100333,-1 ;FSRC 

. WORD 40200.0,.0,.0 sRESULT 

-WORD 7717 3; TEST FPS 

.WORD 7 sRESULT FPS 
:8/UNDERF.OW TRAPS ENABLED. Uv RESULT 

MOV #1, BOFLAG 2: INTERRUPT 

JSR R7, OVOSUB :00 TEST 

. WORD .0,0,0 8 0 


SEQ 0086 


GLOBAL AREAS 
KDJ1L1A.MAC 


021676 
021704 


022054 
022056 


MACY11 30A( 1052) 
15-MAR-84 15:51 


077777 
000000 








J/ 


15-MAR-84 16:58 PAGE 87 
T62 TEST DIvD - 
000000 WORD 77777,0,0,0 sF SRC 
100200 WORD 140400 ,, 100200, 100200, 100201 ;sRESULT 
. WORD 2200 s TEST FPS 
. WORD 102210 sRESULT FPS 
. WORD sFEC 
;9/0VERFLOW TRAPS ENABLED 
001042 MOV . LAG s INTERRUPT 
JSR R7,O0VOSUB 300 TEST 
012346 . WORD 77000 , 123465, 12346,525 sACO 
140000 -WORD 303,1,140000,140001 sF SRC 
103645 . WORD 36650 , 163002 , 1C 364564003 sRESULT 
. WORD 1700 ; TEST FPS 
. WORD 101702 sRESULT FPS 
. WORD 10 sFEC 
3 
JMP sHOP OVER SUBROUTINE 
3 @XeXeXeXeXeXeXeXeXeXaXeXeXeXeXaXaXeXeXeXeXeXeXeXeXeXeXexex 
3 eXeXeXeXeaXeXeaXeXaXeXeXeXeXeXaXeXeXeXeXeXeXeXeXeXeXeXeXeXexX 
; 
:DIVD SUBROUTINE: 
3 ACO 
3 FSRC 
: FPS BEFORE EXECUTION 
3 FPS AFTER EXECUTION 
3 CFEC) 
a 
s eXeXeXeXeXeXeXeXeXaeXeXeXaXeXeXeXeXeXeXeXeXeXeXeXeXeXexexeX 
3 *XaXeXeXeXeXeXeXeXeKeXeXeXeXeXaXeXeXeXeaXeXeXeXeXeXeXeXeXeX 
3 
DVDSUB: MOV : RETURN ADDRESS TO USE AS POINTER 
000244 MOV ;REDIRECT TRAP VECTOR 
MOV sSET TO DOUBLE MODE FOR LOAD 
LOFPS sLOAD FPS 
MOV R5,R4 sPOINT TO FSRC DATA 
ADO 10,R4 
LOD (R5),ACO sLOAD ACO WITH TEST DATA 
HOV R5), :GET TEST FPS 
LOFPS sLOAD TEST FPS 
é 
DIvD CR4), ACO ;@TEST INSTRUCTION 
is CFCC sWAIT FOR POSSIBLE FPA TRAP. 
} INSTRUCTION DIONT TRAP 
001042 BIT @1,80FLAG ;VERIFY A NO TRAP CONDITION 
BEQ 2s a If 
ERROR ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 351 ; UNIQUE ERROR NUMBER 
‘. FPPERR sADDRESS OF ERROR MESSAGE 
LINSTRUCTION SHOULD HAVE TRAPPED 
JMP es REJOIN CODE 


SEQ 9087 


GLOBAL AREAS 
KOJL1A.MAC 


022242 
022242 


en he et 
15-MAR 


000001 001042 


000020 


022056 


001126 
000020 
157756 
156644 


001042 
000034 
000034 


000036 





oe ee 15 -MAR - se} 16; FE 1 Bebe? 


‘ 
i ane TRAPPED 





IK / 











50% T @1,80F LAG sSEE IF EXPECTING A TRAP 
NE 51$ sBRANCH IF EXPECTING A TRAP 
ERROR 3 ALL ry TO TRAP TO EMT VECTOR 
. WOR 352 sUNIQUE ERROR NUMBER 
.W FPPERR sADDRESS OF ERROR MESSAGE 
, INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2s sREJOIN CODE 
518: MOV (SP )+,R4 sSEE IF PC = INSTRUCTION 
TST (SP )- — UP STACK 
CMP @13,R4 
BEG 2s SBRANCH IF GOOD COMPARE 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 353 sUNIQUE ERROR NUMBER 
.WORD FPPERR sADDRESS OF ERROR MESSAGE 
3PC WAS INCORRECT 
;COMMON CODE FOR TRAP AND NO TRAP 
2s: STFPS RS ;SAVE FPS 
MCV #200 ,R2 sSET FPP TO DOUBLE 
LOFPS Re 
MOV @RECOST,R1 sPOINT TO RECEIVED DATA TABLE 
STD ACO,CR1) sSAVE ACO RESULT 
CMP CRS). 3; VERIFY STATUS 
BEQ 3 IF GOOD 
ERROR sALL ERRORS TO TRAP 10 EMT VECTOR 
WORD 354 sUNIGUE ERROR NUMBER 
-WORD FPPERR — nee OF ERROR MESSAGE 
8 
38: ped sPOINT TO EXPECTED DATA 
4$: vor s VERIFY DATA 
BEQ ;BRANCH IF GOOD 
ERROR 3ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD sUNIQUE ERROR 
. WORD sADDRESS OF ERROR MESSAGE 
5$: TST ;SEE IF NEED TO CHECK FEC 
BNE TO CHECK 
JP 
68: sTsT 
MOV 
Chup Rr4, 
BE 73 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
WORD 356 R 
WORD FPPERP see Fae OF ERROR MESSAGE 
3 
78; JMP 36(R5) 2RETURN FROM TEST 
F 
HOP11; 
MMULF ; 


££ 99806668 66086646600006660666606606600006006000600000008000RR002RRE 


s*TEST 63 


TEST MULF 


SEQ 9088 


GLOBAL. AREAS 
KDJL1LA.MAC 


022242 
022242 


156536 
001042 


001042 
000454 


000000 
177777 


177777 


001042 
000424 
177777 
000000 
177777 


001042 
000374 


Lf 


sR ba SPEARS? TSMMRCg s6HHB, PAGE, 


3 EPPEEAEEAEEEEEEAEAEEEEEEEREAEEEEEEAEEEEEEREAEREDEDAEEEOAEAED EEE 


TST63: 

INC $TESTN s INCREMENT TEST NUMBER 
;17ACO«FSRC*#O -INTERRUPTS DISABLED 

CLR LAG sNO INTERRUPT 

JSR R7,MLFSUB 300 TEST 

-WORD 0,0 sACO 

-WORDB 0,0 3F SRC 

-WORDB 0,0 sRESULT 

. WORD 7517 s TEST FPS 

WORD sRESULTANT FPS 


: 7504 
a - INTERRUPTS ON 








Cc LAG sNO INTERRUPT 
JSR R7,.MLF SUB 300 TEST 
WORD 200,0 3ACO 
WORD 0,0 3F 
-WORD 0,0 sRESULT 
WORD 13 ; TEST FPS 
. WORD & sRESULTANT FPS 
33/AC20 FSRC>O - 
CLR @OFLAG 3NO INTERRUPT 
JSR R7 ,.MLFSUB 300 TEST 
-WORD 100,0 3ACO 
WORD 300,0 3F SRC 
.WORD 0,0 sRESULT 
-WORD 7500 3; TEST FPS 
-WORD 7504 sRESULTANT FPS 
34/AC*1 >FSRC - ROUND 
CLR BOFLAG :NO INTERRUPT 
JSR R7, MLFSUB 3:00 TEST 
-WORD 40200,0 ;ACO 
WORD 40177,-1 3:F SRC 
.WORD 4017 ra -1 sRESULT 
. WORD ; TEST FPS 
-WORD 0O sRESULTANT FPS 
3:57 TRUNCATE 
CLR 3NO INTERRUPT 
JSR 300 TEST 
- WORD 3ACO 
- WORD 
. WORD ;RESULT 
. WORD 3; TEST FPS 
—_ sRESULTANT FPS 
CLR 3NO INTERRUPT 
JSR 3:00 TEST 
. WORD 100,0 ,FSRC 
WORD ‘ sRESULT 
WORD i2 3; TEST FPS 
-WORD O sRESULTANT FPS 
: 7/ROUND 
CLR LAG :NO INTERRUPT 
JSR FSUB 300 TEST 
. WORD 0 ;ACO 
-WORD 23652,125252 sF SRC 


SEQ 9089 


M/ 


SbORtR.ARE*S ss"ARAAASPBCARS?? 19-8 a ita 


003177 
007417 
007400 


177777 


001042 
000234 


000000 
177776 
177776 


001042 
000204 


000000 
177776 
177776 


000001 
000116 
177777 
000000 
177777 


000002 
000062 


001042 


001042 


001042 


lerncsortgne” ROUND 


s11/7AC>0 


s L3/OVERF 


0 
310/7AC<FSRC, ROUND 














1400 

CL BOFLAG 
JSR phe ew 

. WORD 40342, - 

. WORD 176548, 025252 
. WORD £70741 ,.67506 
. WORD Le 5 

1 9/TACKFSRC<O, ROUND 

CLR SOF LAG 
JSR R7,MLF SUB 
.WORD 144600, 

-WORD 154000, 

-WORD 60400,0 

-WORD 17 

. WORD 
CLR BOF LAG 
JSR R7 , MLFSUB 

* WORD * 

~WORD 140377,177776 
-WORD 160177,177776 
-WORD 17 

-WORD 10 

>F SRC » TRUNCATE 
CLR BOFLAG 

JSR R7 .MLFSUB 
-WORD 60000.0 

-WORD 1403577,177776 
-WORD 160177,177776 
-WORD 7547 

. WORD 

Ow, 

MOV 

JSR 

. WORD 

WORD 

. WORD 

. WORD 

LOW, 





MOV 
JSR 


1117 
101116 


314/0VERFLOW NO TRAP 


02, 80F LAG 
R7,MLF SUB 


gs 


TEST FP 


S 
sRESULTANT FPS 
sNO INTERRUPT 

300 


TEST 
sACO 
sF SRC 
sRESULT 
3 TEST FPS 


sRESULTANT FPS 
sNO INTERRUPT 
300 TEST 


sAC9 
SFSRC 
sRESULT 
; TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
300 TEST 
3ACO 


sF SRC 


sRE 
; TEST FPS 
sRESULT FPS 


3NO INTERRUPT 
300 TEST 


:NO INTERRUPT 
3:00 TEST 


SEQ 9090 


GLOBAL. 
KDJLIA. 


AREAS 
MAC 


077700 
077700 
000000 


040117 
040106 
000010 


012737 


170001 


000167 


032737 
001005 


023124 
000200 


000004 
000014 


000042 


; 
3I 
000001 001042 50$: 


001042 


001042 


STARA LA SQECARS2” 1S-MMRG9g 16:9B, PAGE, 9 


N/7 


77700,0 sACO 
77700 ,0 sF SRC 
0,0 sRESULT 
40117 s TEST FPS 
40106 sRESULT FPS 
10 ieee 

VARIABLE IN FSRC, TRAP ENABLED 
41,Q@0FLAG s INTERRUPT 
R7,MLFSUB 300 TEST 
123465 ,0 sACO 
100022 ,0 sF SRC 
123465 ,0  eataaate 
000 ; TEST FPS 
104000 sRESULT FPS 
14 ;FEC 


JMP HOP 12 
3 *XaXeXaXaXaXaXaXaXaXaXaXaXaXaXaXaeXeXaXeXaXeKeXeXeXeKeXeXKeX 
3 @XeXaXeXaXaXaXaXaXaXaXeXaXaXeXeXaXaXaeXaXaXaXaKeXeXeXaXKexeX 


ACO 


FSRC 
FPS BEFORE EXECUTION 
i Ft EXECUTION 


3 @XaXeXeXeXeXaXaXaXaXeXeXeXeXeXeXaXeXeXaXKeXeXeXeXeXeXeXeXeX 
Se ee ca i ata Cano eerpaeaia 


MLFSUB: MOV (SP)+,RS 
MOV 0503, 
MOV ; 
LOFPS R2 
LOD CRS), ACO 
MOV R5,R4 
ADD 04_R4 
MOV 14(R5),R2 
LOFPS R2 
3 
MULF § (R4&), ACO 
1s: SETF 
INSTRUCTION DIONT TRAP 
BIT 01, 90FLAG 
BEQ 
ERROR 
.WORD 357 
"WORD FPPERR 
UMP 23 


NSTRUCTION TRAPPED 
adit 


BIT 
BNE 


s RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 
ty DOUBLE MODE FOR LOAD 


> 
sLOAD ACO WITH TEST DATA 
sPOINT TO FSRC DATA 


sGET TEST FPS 
sLOAD TEST FPS 


s*TEST INSTRUCTION 
sWAIT FOR POSSIBLE FPA TRAP. 


;VERIFY A NO TRAP CONDITION 
sBRANCH IF 
;ALL ERRORS TO TRAP TO EMT VECTOR 
:VUNIQUE ERROR NUMBER 
sADDRESS OF of MESSAGE 
; INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 








sSEE IF EXPECTING A —_ 
sBRANCH IF EXPECTING A TRAP 
FALL ERRORS TO TRAP TO EMT VECTOR 


SEQ 0091 


GLOBAL AREAS 
KDJ1L1LA.MAC 


023136 
023140 
023142 


023310 


MACY11 30A(C 1052) 
15-MAR-84 15:51 


005267 
005057 


000020 


023100 


000022 


155474 
001042 












15-MAR-84 16:58 PAGE 92 
T63 TEST MULF 
. WORD 360 sUNIQUE ERROR NUMBER 
. WORD FPPERR sADDRESS OF ERROR MESSAGE 
INSTRUCTION WASNT SUPPOSE TO TRAP 
JMP 2s sREJOIN C 
518: MOV (SP )+,R4 sSEE IF PC = INSTRUCTION 
TST (SP )> ‘eae UP STACK 
CMP 1% ,R4 
BEQ 2s BRANCH IF GOOD COMPARE 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 361 sUNIQUE ERROR NUMBER 
. WORD FPPERR sACORESS OF ERROR MESSAGE 
sPC WAS INCORRECT 
: 
:;COMMON CODE FOR TRAP AND NO TRAP 
2s; STFPS |B) sSAVE FPS 
+ @200 ,R2 3;SET FPP TO DOUBLE 
MOV @RECOST,R1 sPOINT TO RECEIVED DATA TABLE 
STO ACO, (Ri) sSAVE ACO RESULT 
CMP 16(R5), RS sVERIFY STATUS 
BEQ 38 <r IF GOOD 
ERROR L ERRORS TO TRAP TO EMT VECTOR 
WORD 362 NIQUE ERROR NUMBER 
WORD FPPERR enn nn OF ERROR MESSAGE 
’ 
38: MOV R5,R4 sPOINT TO EXPECTED DATA 
ADD #10,R4 
43: 4 fans s VERIFY DATA 
BEQ | sBRANCH IF GOOD 
ERROR FALL ERRORS TO TRAP TO EMT VECTOR 
WORD 363 sUNIQUE ERROR 
-WORD FPPERR ane — OF ERROR MESSAGE 
3 
58; TST BOF LAG 3SEE IF NEED TO ye FEC 
BNE 64 sBRANCH IF NEED TO CHECK 
JMP 20(R5) SRE TURN FROM TEST 
sVERIFY ERROR STATUS 
6%: sTsT Ri 2SAVE FEC 
20(R5),R4 3GET FEC 
Ri ;VERIFY FEC 
BEQ 78 sBRANCH IF GOOD 
ERROR TALL ERRORS TO Ll TO EMT VECTOR 
-WORD 364 sUNIQUE ERROR 
WORD FPPERR vADORESS OF ERROR FESSAGE 
18: UMP. 22(RS) :RETURN PROM TEST 
HOP 12: 
MMULD: 
83 ar ae Gees ean enannnnnnenee 
s@TEST 64 TEST MULD 
| § 998608 666664660680606 0666006660 0600680866060666006006060600000000080006 
TST64; 


INC STESTN 
31/AC «0 
CLR BOF LAG 


s INCREMENT TEST NUMBER 
iNO INTERRUPT 


SEQ 9092 


KDUIIA.MAC > 15 HAR *Aa*PBLAP5e? 15-MARGBG 16:58, PAGERS 


023314 


023574 
023600 


004767 
000100 


000554 
000000 


177777 


001042 
000444 
000000 
177777 
177777 


001042 
000400 
000000 
177777 
177777 


001042 
000334 
177777 


000000 
177777 
177777 


000000 
177777 
177777 


177777 
000000 
060000 


:2/FSRC=0 
L 


36/AC >F SRC > 


JSR 
. WORD 


5 5 


- © 


"5555 5° 


BP 


555 9555 5 5 3 


att 


° 


CLR 
JSR 


R7,MLDSUB 
106,0,0,0 


411, -1,0,1 
0,0,0,0 

200 

204 

BOF LAG 
R7,MLOSUB 
77777,0,0,.0 
0,0,0,0 sFSRC 
0,0,0,0 

7700 

7704 

SOF LAG 
R7,MLOSUB 
40200,0,0,0 
277.,-1.-1,.-1 
277,-1,-1,-1 





37577, -l, -1, -2 
65077,-1,-1, “i 


7717 
7700 


SOF LAG 

R7 ,MLOSUB 
137577, -l, -l, 2 
165400,0,0,1 
65000 ,0,0,0 
7717 

7700 


@OF LAG 
R7,.MLOSUB 


DO TEST 
saco.Cté' 


sF SRC 
sRESULT 


s TEST FPS 
sRESULTANT FPS 


sNO INTERRUPT 
5 TEST 
3ACO 


sRESULT 


3 TEST FPS 
sRESULTANT FPS 


sNO INTERRUPT 
300 TEST 
3ACO 
sF SRC 
sRESULT 


3 TEST FPS 
sRESULTANT FPS 


3NO INTERRUPT 
300 TEST 
3ACO 
sF SRC 
sRESULT 


3 TEST FPS 
sRESULTANT FPS 


3NO INTERRUPT 
300 TEST 
3ACO 
3F SRC 
sRESULT 


3 TEST FPS 
sRESUL TANT FPS 


:NO INTERRUPT 
2300 TEST 


SEQ 9093 


KDITIA. MAE STHRA TAQ *PACSP52? 15-MARZBG 16:58. PAGE, 94 


017500 
000000 
123652 


000000 
125252 
177777 


001042 
000110 
177777 
177777 


000001 


000000 
017777 


000000 
125252 
177777 


177777 
177777 


001042 


117777 


. WORD 


. WORD 

. WORD 
3; 7/UNDERFLOW, 

CLR 

JSR 

. WORD 





| gee 





3 10/0VERFL 


28; 





US 








7420, 017777 LL7777, 117777 


1240 
101242 
10 


17500,0,0,0 sACO 
125652, 125252, 125252, 125252 sF SRC 
103177,-1.-1,-1 sRESULT 

s TEST FPS 
210 sRESULTANT FPS 

TRAPS DISABLED 
BOF LAG sNO INTERRUPT 
R7,MLOSUB 300 TEST 
300,0,0,252 3ACO 
377.1.2,3 sF SRC 
0,.0,0,0 SRESULT 
5740 s TEST FPS 
5744 sRESULT FPS 
TRAP ENABLED 
- BOF LAG s INTERRUPT 

100277.,1.2. -1 sACO 
100300,1, 1.1 3sF SRC 
40417,40001,77403,.0 sRESULT 
2217 3 TEST FPS 
102200 sRESULT FPS 

sFEC 
BOFLAG sNO INTERRUPT 
R7 .MLOSUB 3:00 TEST 
-1,-1.,-1.-1 3ACO 
40200, -1.-1.-1 3sF SRC 
0,0.0,0 sRESULT 

s TEST FPS 

sRESULT FPS 

1 INTERRUPT 
7, MLOSUB 3:00 TEST 

157700, 25252, 25252,25252 3:ACO 
167700,0,0,0 sF SRC 


sRESULT 


3 TEST FPS 
;RESULT FPS 
3FEC 


SEQ 9094 


GLOBAL 


KDJLIA, 


AREAS 


MAC 


024214 
024216 


024220 


024222 


MACY11 30A( 1052) 


15-MAR-84 15:51 
024070 000167 000242 


170011 


170203 
012702 


15 -MAR -84 
T64 


024156 000244 
000200 


000010 


024132 


001042 


001042 


16:58 PAGE 95 
TEST MULD 


JMP HOP 13 


E8 


s OXeXaXeXaXaXaXaeXeXaXeXaXaXaXaXaeXaXeKaXeXeXeXeXeXeKexXexkexXeX 
p OXaXeXaeXaXeXaXeXaXaXaXaXaxXaXaXaXeXakaeXaXeXeXeKaxexKeXeXeXeX 


ACO 


3 FSRC 

: FPS BEFORE EXECUTION 
: a EXECUTION 
. 


| aXeXeXeNeXeNeXeXeNeXeXeXeXeXeXeXexeXeKoXenekeXereXeXeXxexex 
gc tl i aaah maa aaa aaa terete 


MLDSUB: MOV (SP)+,RS 
MOV @50% , BOF PVEC 
MOV 200 ,R2 
LOFPS Re 
LOO cs) ACO 
MOV R5,R 
ADD #10,R1 
MOV 30( ° 
LOFPS Re 

: 
MULD CR1),ACO 

18; SETD 


S INSTRUCTION DIDNT TRAP 
BIT @1,80FLAG 
BEG af 


518: 





sansrauct 
sREJO 


s RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 
sSET TO DOUBLE MODE FOR LOAD 
sLOAD FPS 
sLOAD ACO WITH TEST DATA 
sPOINT TO FSRC DATA 


sGET TEST FPS 
sLOAD TEST FPS 


s*TEST INSTRUCTION 
sWAIT FOR POSSIBLE FPA TRAP. 





Page A NO TRAP CONDITION 
sBRANCH IF 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 










:SEE IF EXPECTING A ye 
sBRANCH IF EXPECTING A 
her tek TO TRAP TO ENT VECTOR 


ADDRESS OF ERROR MESSAGE 
WASNT SUPPOSE TO TRAP 
In CODE 


2SEE IF PC = INSTRUCTION 
rCLEAN UP STACK 


IBRANCH IF GOOD COMPARE 
sALL ERRORS TO TRAP TO EMT VECTOR 
ERROR NUMBER 


s UNIQUE 
s ADDRESS OF ERROR MESSAGE 
INCORRECT 











:SAVE FPS 
2SET FPP TO DOUBLE 


SEQ 9095 


GLOBAL AREAS 
KDJ1L1A.MAC 


170102 
012701 


001126 
000032 


000020 
155662 
154550 


001042 
000034 


000034 


000036 


1S-MAR=Ba T5;Sp>°> TS-MARTBG 16:98. PAGE, 96 


F 8 


sPOINT TO masetveo DATA TABLE 
sSAVE ACO 

;VERIFY STATUS. 

sBRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sBAD FPS 


sPOINT TO EXPECTED DATA 
sVERIFY DATA 


sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR is 
sADDRESS OF ERROR MESSAGE 
3BAD ACO 
;SEE IF NEED TO CHECK FEC 
;BRANCH IF NEED TO CHECK 
sRETURN FROM TEST 





BRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR 

sADDRESS OF ERROR MESSAGE 


2 
sRETURN FROM TEST 





§ SSSOSOEHOSESESEDESESEEEESEESESEEEOKEDEOOSORESESEDESELOEESEEEEEEE 
TEST MODF 


8 8 OSSS068 00600006666 085606 006060608 606060006606600606066000068600600668688 


LOFPS Re 
MOV MRECDST,R1 
STD ACO,C(R1) 
CMP 32(R5),R3 
BEQ 3$ 
ERROR 
. WORD 370 
.WORD FPPERR 
ADD @20,R4 
4$; JSR R7,DATVER 
TST COUNT 
BEQ 5$ 
ERROR 
. WORD 371 
WORD FPPERR 
58: TST GeF LAG 
BNE 6% 
JMP 34(RS) 
;VERIFY ERROR STATUS 
6$: STST Ri 
MOV S4(R5),R4 
CMP R4,R1 
BEQ 7$ 
ERROR 
WORD 372 
. WORD 
78: JMP 36(R5) 
HOP 13: 
MMOOF : 
3*TEST 
TST65: 
INC STESTN 
:1/AC*0 FSRC*0 
CLR QOFLAG 
JSR R7 MDF SUB 
-WORD 12346,-1 
. WORD oo 
WORD 0,0 
- WORD 13 
WORD 4 
32/F SRC #0 
CLR BOF LAG 
JSR R7 MDF SUB 
.WORD 12356, -1 
. WORD 0,0 3F SRC 
-WORD 0,0 
. WORD 0,0 
. WORD 3 
WORD 4 


s INCREMENT TEST NUMBER 
sNO INTERRUPT 

300 TEST 
sF SRC 
sFRACTIONAL RESULT 
s INTEGER RESULT 
: TEST FPS 
sRESULTANT FPS 
3NO INTERRUPT 

300 TEST 
;ACO 


i ereane a RESULT 


SEQ 9096 


GS 


SbORTR.ARE*S as"AAALa 286295” 1S-MRIRS 163987 F667 


005037 
004767 


000000 
177777 


000000 
177777 


001042 
000250 


125252 
000000 
000000 
177777 











33/AC=0 

CL BOF LAG 

JSR R7,MOF SUB 

. WORD .O 

. WORD he -1 

. WORD ,0 

-WORD 0,0 

.WORD 7500 

-WORDB 7504 
34/AC>FSRC>0 

CLR aerFL 

JSR R7 , MOF SUB 

-WORDB 46252,125252 

-WORD 40300,0 ;FSRC 

-WORDB OQ, 

-WORD 463577,-1 

-WORD 13 

. WORD 
35/AC>FSRC>0 

CLR BOF LAG 

JSR R7 , MOF SUR 

-WORD 77652,125252 

-WORD 403500,0 ;:FSRC 

-WORDB 0,0 

. WORD 77777, -1 

-WORD O 

-WORDB 4 
36/AC>O<FSRC, INTEGERS 

CLR SOFLAG 

JSR 

. WORD 

. WORD 

. WORD 

. WORD 

-WORD 7400 

-WORD 7404 
37/AC<O<F SRC, 

CLR 

JSR 

. WORD 

. WORD 

. WORD 

-WORD 0,0 

WORD O 

WORD 10 — 
38/AC<O>F SRC, TRUNCATE 

CLR SOF LAG 

JSR R7 , MOF SUB 

- WORD re 

-WORD 40300,0 

. WORD 0 

-WORD 46377,-1 

. WORD 3 

-WORD 44 
39/ROUND INTEGER 


sNO INTERRUPT 
:00 TEST 

3ACO 

sF SRC 


sFRACTIONAL RESULT 
s INTEGER RESULT 

s TEST FPS 

sRESULT FPS 


sNO INTERRUPT 
3:00 TEST 
3ACO 


sFRACTIONAL RESULT 

s INTEGER RESULT 
s TEST FPS 
sRESULTANT FPS 


3NO INTERRUPT 
3:00 TEST 
sACO 


sFRACTIONAL RESULT 

s INTEGER RESULT 
; TEST FPS 
sRESULTANT FPS 


3NO INTERRUPT 
300 TEST 
;ACO 


:F SRC 
sFRACTIONAL RESULT 

s INTEGER RESULT 
3 TEST FPS 
sRESULT FPS 


3NO INTERRUPT 

200 TEST 

;AaCO 

sF SRC 

sFRACTIONAL RESULT 
SULT 


3NO INTERRUPT 
300 TEST 
: 


3F SRC 
1FRACTIONAL RESULT 
; INTEGER RESULT 
; TEST FPS 
sRESULT FPS 


SEQ 0097 


IS 


GLOBAL AREAS MACY11 30A( 1052) 15-MAR- 6: e 4 
KDJ11A.MAC 1S MAR Ba 15:4) Tes : TEst Abbr . SEQ 9098 
5087 024702 005037 001042 CLR BOF LA sNO INTERRUPT 
5088 024706 004767 000214 JSR R7 , MOF SUB 300 TEST 
5089 024712 046252 125252 ~WORDB 46252,125252 ’ 
S090 024716 040300 -WORD 40300,0 sF SRC 
5091 024722 000000 000000 -WORDB 0,0 sFRACTIONAL RESULT 
S092 024726 046377 177777 -WORDB 46377,-1 s INTEGER RESULT 
5093 024732 000013 . WORD 13 5 TEST FPS 
5094 024734 .WORD 4 sRESULT FPS 
5095 310/TRUNCATE FRACTION 
5096 024736 005037 001042 CLR BOF LAG sNO INTERRUPT 
5097 024742 004767 000160 JSR R7 MOF SUB 100 TEST 
S098 024746 040777 177777 -WORD 40777,-1 ;ACO 
5099 024752 000000 -WORD 40200,0 sF SRC 
53100 024756 040177 177770 -WORD 40177,177770 sFRACTIONAL RESULT 
5101 024762 040740 000000 -WORD 40740,0 s INTEGER RESULT 
5102 024766 000000 -WORDB O ; TEST FPS 
5103 024770 000000 -WORD O sRESULT FPS 
5104 311/ROUND INTEGER 
S105 024772 005037 001042 CLR BOFLAG sNO INTERRUPT 
5106 024776 004767 000124 JSR R7, MOF SUB 3:00 TEST 
5107 000000 000000 -WORD 0,0 3ACO 
5108 000000 000000 . WORD sF SRC 
3109 025012 000000 000000 . WORD sFRACTIONAL RESULT 
5110 025016 000000 000000 . WORD s INTEGER RESULT 
S111 025022 000000 . WORD 3s TEST FPS 
S1li2 025024 000004 . WORD sRESULT FPS 
5113 :12/ROUND FRAC 
5114 005037 001042 CLR sNO INTERRUPT 
3115 025032 004767 000070 JSR 300 TEST 
3116 025036 040225 125252 . WORD 3ACO 
5117 025042 052525 . WORD 3F 
5118 025046 000000 - WORD sFRACTIONAL RE T 
3119 025052 066707 025160 . WORD s INTEGER RESULT 
5120 025056 007027 . WORD 3s TEST FPS 
Si2i 025060 007004 . WORD sRESULT FPS 
3122 ; /OVERFLOW 
5123 012737 000001 001042 MOV s INTERRUPT 
3124 025070 004767 000032 JSR 3:00 TEST 
5125 025074 076000 000000 - WORD ’ 
5126 025100 076000 000000 . WORD 3F SRC 
5127 025104 000000 - WORD sFRACTIONAL RESULT 
3128 02511C 033600 000000 . WORD . s INTEGER RESULT 
5129 025114 001000 -WORD 1 : TEST 
5130 025116 101006 ~WORD 101006 sRESULT FPS 
ep 025 000010 . WORD 10 sFEC 
; 
si 025122 000167 000310 JMP HOP 14 
5135 3 *XaXeXeXeXeKeXeoXeXeXeXeXaXeXeXeXeXeXeXeXaXaXeXeXeXeXeXexexX 
aaae 3 *XeXeXeXaXeXeXeXeXeXeXeXeXaXeXaxeXeXeXeXeXeXeXeXeXeXeXexeX 
H 
5138 P aco 
5139 ; FSRC 
5140 : FRACTIONAL RESULT 
5141 5 INTEGER RESUL 
5142 $ FPS BEFORE EXECUTION 








GL OBA: 


AREAS 


KDJ1L1A.MAC 


MACY11 30A( 1052) 
15 -MAR - 84 


016502 
170102 


171411 
170001 


15:51 


025216 
000200 


025426 


000004 
000020 


025172 


15 -MAR -84 


000244 


001042 


001042 


16:58 PAGE 99 
T65 TEST MOOF 


: FPS AFTER EXECUTION 
(FEC) 


1 OXOXOXANeXeNOXeXaXeKeXen eX exeneNeXoneNeXsKeXoXeKexeXexexon 
ca maine aa aa atari aataaaneaes ceaaeeenieniemeneen 


MOF SUB : MOV (SP)+,RS 
MOV 050% , BOF PVEC 
V #200 ,R2 
LOFPS Re 
LOO (RS5),ACO 
MOV OMODGAR ,R1i 
LOD CR1),AC1 
MOV RS,R1 
ADD 64,R1 
MOV 20(R5S),R2 
LOFPS Re 
° 
MODF €R1),ACO 
we SE TF 
; INSTRUCTION DIONT TRAP 
BIT @1,80FLAG 
BEQ 
ERROR 
-WORD 373 
-WORD FPPERR 
JMP 2t 
; INSTRUCTION — 
50$: BIT #1, 80FLAG 
BNE 518 
ERROR 
WORD 374 
WORD FPPERR 
2$ 
Sis: CSP )+,R4 
(SP) 
#13,R4 
23 
375 
FPPERR 





23: STFPS 
MOV ° 
LOFPS R2 
MOV @RECDST ,R1 
;SAVE FRACTIONAL RESULT 
STO ACO,CR1) 
22(R5),R3 


CMP 
BEQ 


: 
sCOMMON CODE ee AND NO TRAP 


s RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 


Ss 
sLOAD ACO WITH TEST DATA 
sLOAD KNOWN INTO AC1 


é 
sPOINT TO FSRC DATA 


sGET TEST FPS 
sLOAD TEST FPS 


s*TEST INSTRUCTION 
sWAIT FOR POSSIBLE FPA TRAP. 


; VERIFY A NO TRAP CONDITION 
—_—— IF GOOD 
ALL ERRORS TO TRAP TO EMT VECTOR 
| UNTQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
s INSTRUCTION SHOULD HAVE TRAPPED 
sREJOIN CODE 


If EXPECTING A TRAP 
ie IF EXPECTING A TRAP 
ERRORS TO TRAP TO EMT VECTOR 
S UNTQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOIN CODE 


3SEE IF PC = INSTRUCTION 
iCLEAN uP STACK 


SBRANCH IF IF GOOD COMPARE 

sALL ERRORS TO TRAP TO EMT VECTOR 
S UNTQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 
INCORRECT 












:PC WAS 


:SAVE FPS 

3SET FPP TO DOUBLE 

sPOINT TO RECEIVED DATA TABLE 
3SAVE ACO RESULT 
:VERIFY STATUS 
:BRANCH IF GOOD 


SEQ 9099 


JS 


GLOBAL AREAS  MACY11 30A(1052) 15-MAR-84 16:58 PAGE 100 SEQ 0100 
KDJ11A.MAC 15-MAR-84 15:51 T65 TEST MODF 
5199 025304 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
S200 025306 000376 -WORD 376 sUNIQUE ERROR NUMBER 
S201 025310 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
5202 ;BAD FPS 
S203 025312 010504 3$; MOV RS,R4 sPOINT TO EXPECTED DATA 
3204 025314 062704 000010 ADD @10,R4 
3205 025320 004767 154604 4$; JSR R7,DATVFR sVERIFY DATA 
S206 025324 005767 153510 TST COUNT 
S207 025330 001403 BEQ 5$ sBRANCH IF GOOD 
S208 025332 104000 ERROR sALL ERRORS TO Ll TO EMT VECTOR 
S209 025334 000377 -WORD 377 sUNIQUE ERROR NUMBER 
S210 025336 002013 -WORD FPPERR sADDRESS OF ERROR MESSAGE 
S2il sBAD ACO 
S2le ;SAVE INTEGER RESULT 
S213 025340 174111 S$: STO AC1.(R1) VE ACI RESULT 
S214 025342 01 MOV R5,R4 sPOINT 10 EXPECTED 
$215 062704 000014 ADD 014 ,R4 
5216 004767 154554 JSR R7,DATVFR sVERIFY DATA 
S217 025354 005767 153460 TST COUNT 5 
5218 025360 001403 BEQ 6% sBRANCH IF GOOD 
S219 025362 104 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
S220 025364 000400 . WORD sUNIQUE ERROR NUMBER 
S221 025366 002013 . WORD sADDRESS OF ERROR MESSAGE 
S222 sBAD AC1 
S223 025370 005737 001042 6%: TST sSEE IF NEED TO CHECK FEC 
S224 025374 001002 BNE IF TO CHECK 
3225 025376 000165 000024 JP ST 
S226 025402 170301 7$: 
S227 ©25404 016504 000024 
S228 025410 020401 
3229 025412 001403 ANCH IF GOOD 
5230 025414 104000 sALL ERRORS TO TRAP TO EMT VECTOR 
S231 025416 000401 401 ; UNIQUE ERROR NUMBER 
S2 002013 sADDRESS OF ERROR MESSAGE 
3233 sBAD FEC 
can 025422 000165 000026 8$: 26(RS) sRETURN FROM TEST 
: 

S236 025426 177777 177777 177777 MODGAR: -1,-1.,-1,-1 sKNOWN DATA FOR AC1 
3237 025434 177777 
5238 025436 HOP 14; 
5239 

025436 8 
5241 B § 298800006606 0606660660686460600608860006060000000000080000000000006 
5242 s*TEST 66 TEST 
S243 5 $9OOO0066600606000660000606060006000660000 FSSC RSCOsECeSEEEEEEEEDEDES 
5244 025436 TST66: 
3245 025436 005267 153342 INC STESTN : INCREMENT TEST NUMBER 
3246 31/AC>F SRC #0 
3247 025442 005037 001042 CLR BOF LAG #NO INTERRUPT 
5248 025446 004767 001164 JSR R7 ,MOOSUB 300 TEST 
5249 025452 012345 177777 177777 “WORD 12845,-1,-1.-1 5 
S250 025460 177777 
3251 025462 000100 000000 000000 -WORD 100,0,0,0 3F SRC 
S252 025470 000000 
5253 025472 000000 000000 000000 .WORD 0,0,0,0 sFRACTIONAL RESULT 
5254 025500 000000 
















GLOBAL 


AREAS 


KOJ11A.MAC 


MACYil 30AC 
1S-MAR-84 15 


000000 


000000 
001042 
001110 
000000 


177777 


177777 


001042 
000760 
146314 
000000 
177777 


000000 


125252 
000000 
000000 
177777 


. WORD 

. WORD 

. WORD 
32/AC=O0<F SRC 

CLR 

JSR 

. WORD 


:3/AC>FSRC>0 
CLR 
JSR 





24/AC<O>F 


ga 


35/ACF 


. B85 


O52) 15-MAR-84 16: PAGE 10 
tee | Test MObD 


IK 


0,0,0,0 ; INTEGER RESULT 
200 s TEST FPS 
204 sRESULTANT FPS 
BOF LAG sNO INTERRUPT 
R7,MODSUB 300 TEST 
0,0,0,0 sACO 
1234,-1,0,0 sF SRC 
0,0,0,0 s INTEGER RESULT 
7717 3; TEST FPS 
7704 sRESULTANT FPS 
BOF LAG sNO INTERRUPT 
R7,MODSUB 300 TEST 
56252, 125252, 125252, 125250 sACO 
40300,0,0,0 sF SRC 
$6377,-1,-1,-4 s INTEGER RESULT 
215 ; TEST FPS 
204 sRESULTANT FPS 

3NO INTERRUPT 
R7 ,MDDSUB 300 TEST 
140240,.0,0,0 ;ACO 


63714, 146314, 133572,167737 
0,0,0,0 
163777, -1,162531, 125726 


210 
204 


@OF LAG 
R 





7, MODSUB 
56200,0,0,1 


40340,0,0,0 


0,0,0,0 


356340,0,0,1 


213 
204 


3 SRC 
sFRACTIONAL RESULT 
s INTEGER RESULT 


; TEST FPS 
sRESULTANT FPS 


sNO INTERRUPT 
300 TEST 

;ACO 

3F SRC 


iFRACTIONAL RESULT 
s INTEGER RESULT 


; TEST FPS 
sRESULTANT FPS 


SEQ 9101 


AREAS 


GLOBA:. 
KOJ11A.MAC 


025776 


iS- 








L& 





M . ; : 
MAR ba secap (> = TS-MAR=B8 16:58. PAGE 102 

36/7 TRUNCATE 
005037 001042 CLR @0FLAG ;NO INTERRUPT 
004767 000630 JSR R7,MODSUB ;00 TEST 
056252 125252 125252 ‘WORD 56252, 125252, 125252, 125252 ACO 
040300 000000 000000 .WORD  40300.0,0,0 SF SRC 
000000 000000 000000 .WORD 0,0,0,0 /FRACTIONAL RESULT 
056377177777 177777 \WORD 56377,-1,-1,-1 ;INTEGER RESULT 
000253 .WORD 253 ; TEST FPS 
000244 "WORD 244 ;RESULT FPS 

:7/TRUNCATE FRACTION 
005037 001042 CLR BOFLAG ;NO INTERRUPT 
004767 000554 JSR R7 ,MODSUB DO TEST 
023252 1 125252 WORD 23252, 125252, 125252, 125252 sACO 
040300 000000 000000 .WORD 40300,0,0,0 iF SRC 
023377177777 177777 \WORD 23377,-1,-1.-1 ;FRACTIONAL RESULT 
Sate 000000 000000 . WORD 0,.0,0.0 s INTEGER RESULT 
000253 .WORD 253 ; TEST FPS 
000240 “WORD 240 ;RESULT FPS 

;8/ROUND INTEGER 
005037 001042 CLR BOF LAG :NO INTERRUPT 
004767 000500 JSR R7,MODSUB ;D0 TEST 
076600 000000 000000 -WORD  76600,0,0, 125252 ACO 
cotaae 000000 000000 . WORD 40300,0,0.0 :F SRC 
000000 000000 000000 .WORD 0,0,0,0 ;FRACTIONAL RESULT 
076700 000000 000000 76700,0,0, -1 sINTEGER RESULT 
000200 200 ; TEST FPS 
000204 WORD 204 sRESULT FPS 

;9/ROUND THROUGH FRACTION 
005037 001042 CLR :NO INTERRUPT 
004767 000424 JSR R7,.MODSUB :00 TEST 
041525 052525 052525 “WORD 41525,052525,52525.52525 ;ACO 
040300 000000 000000 .WORD 40300,0,0,0 :FSRC 
040177 177777 177777 .WORD 40177,-1,-1,177740 :FRACTIONAL RESULT 
041636 000000 000000 .WORD  41636,0,0,0 ; INTEGER RESULT 
007700 .WORD 7700 ; TEST FPS 
007700 “WORD (77 ;RESULT FPS 

;/OVERFLOW, TRAPS ENABLED 
012737 000001 001042 01, 80F LAG INTERRUPT 
004767 000346 JSR R7.MDDSUB ;00 TEST 
177777 177777 «#177777 3 -1,-1,-1,-1 ;ACO 


SEQ 9102 


MS 


AREA MACY -MAR - :58 P 03 

RDITIA.NAE > 1S MMR tag pecagoe? §«S-MAR=84 16:58. PAGE 1 SEQ 0105 
S367 026276 177777 

5368 026300 040400 000000 000000 .WORD 40400,0,0,0 FSRC 

5369 026306 000000 

5370 026310 000000 000000 000000 .WORD 0,0,0,0 ;FRACTIONAL RESULT 
5371 026316 000000 

5372 026 100177 177777 177777 .WORD 100177,-1,-1,-1 ;INTEGER RESULT 
5373 026 177777 

5374 026330 007700 .WORD 7700 ; TEST FPS 

5375 026332 107706 107706 ;RESULT FPS 

5376 026334 000010 "WORD 10 FEC 

5377 :7INTEGER CHOPPED TO S6 BITS 

5378 026336 005037 001042 CLR @0F LAG ;NO INTERRUPT 

5379 026342 004767 000270 JSR R7,MDDSUB ;00 T 

5380 026346 056700 000000 000000 “WORD 56700,0,0,-1 ' 

5381 026354 177777 

5382 026356 440 177777 177777 .WORD 44440,-1,-1,-1 sFSRC 

5383 026 177777 

5384 026366 000000 000000 .WORD 0,0,0,0 ;FRACTIONAL RESULT 
5386 026376 063161 100000 000001 .WORD 63161,100000,1,40775 sINTEGER RESULT 
5387 026404 040775 

5388 026406 000200 .WORD 200 ; TEST FPS 

5389 026410 000204 “WORD 204 ;RESULT FPS 

5390 ;/OVERFLOW, TRAPS DISABLED 

5391 026412 012737 000002 001042 MOV 02, Q0F LAG ;NO INTERRUPT 
5392 004767 000212 JSR R7 ,MODSUB ;00 TEST 
5393 066600 000000 000000 .WORD 66600,0,0,0 ;ACO 

5394 026432 000000 

5395 026434 066600 000000 000000 .WORD  66600,0,0,0 3F SRC 

5396 026442 000000 

5397 026444 000000 000000 000000 .WORD 0,0,0,0 sFRACTIONAL RESULT 
5398 026452 000000 

5401 026464 047700 .WORD 47700 : TEST FPS 

5402 026466 147706 “WORD 147706 ;RESULT FPS 

5403 026470 000010 “WORD 10 FEC 

5404 ;/UNDERFLOW, TRAPS DISABLED 

5405 026472 012737 001042 MOV j :NO INTERRUPT 
5406 026500 004767 000132 JSR R7.MDOSUB ;D0 TEST 
5407 026504 100277 000001 000002 .WORD  100277,1.2,-1 ; 

5408 026512 177777 

5409 026514 100300 000001 000001 .WORD  100300,1,1,1 :FSRC 

5410 026522 000001 

5411 026524 000000 000000 000000 .WORD 0,0,0,0 ;FRACTIONAL RESULT 
5412 026532 000000 

5413 026534 000000 000000 000000 .WORD 0,0,0,0 sINTEGER RESULT 
5414 026542 000000 

5415 026544 005200 .WORD 5200 ; TEST FPS 

5416 026546 005204 “WORD 5204 ;RESULT FPS 

S417 026550 000010 “WORD 10 FEC 

5418 :/UNDERFLOW TRAPS ENABLED, UV AS RESULT 

5419 026552 012737 000001 001042 MOV 01, Q0FLAG ; INTERRUPT 
5420 026 004767 000052 J 7, MODSUB :00 TEST 
5421 026564 100277 000001 000002 -WORD 100277,1,2.-1 ;ACO 

5422 026572 177777 


GLOBAL 


AREAS 


KDJ11A.MAC 


026574 
026602 


N& 





MACY11 50a 4952 ) 1S-MAR-84 16:58 PAGE 104 
15-MAR-84 15: T66 TEST D 

peenee 000001 000001 . WORD 100300,i1,1,1 sF SRC 
040417 040001 077403 . WORD 40417,40001,77403,0 sFRACTIONAL RESULT 
002200 . WORD 2200 ; TEST FPS 
102200 . WORD 102200 sRESULT FPS 
000012 . WORD l2 ;FEC 

; 
000167 000300 JMP HOP15 sJUMP OVER SUBROUTINE 

1p aXeNaXeXeXeexeXaXeXeXeXeXeXeXeXaXaXeXareXeXeXokenenoxoxox 

3 *XaXaXaXeXaXeXaXaXeXaeXeXaXaXaXaXaXeXaXeXaXaeXeXeXaXeXxeXeXxeX 

i 

3 ACO 

: FSRC 

; FRACTIONAL RESULT 

; INTEGER RESULT 

3 FPS BEFORE EXECUTION 

: FPS AFTER EXECUTION 

3 CFEC) 

; 

3 *XeXeXeXeXaXeXaXaXaXaXaXaXeXeXeXaXeXeXeXeXKeXKeXeXaXeXeXKeXkeX 

RST aca anc att easranbe pemneanate 

1 MODSUB: MOV CSP)+,.R5 s RETURN ADDRESS TO USE AS POINTER 
012737 026726 000244 MOV 3 sREDIRECT TRAP VECTOR 
012702 sSET TO DOUBLE MODE FOR LOAD 
170102 sLOAD FPS 
172415 ;LOAD ACO WITH TEST DATA 
eeett 025426 ese KNOWN INTO AC1 
010501 SPOINT TO FSRC DATA 
062701 000010 
016502 sGET TEST FPS 
170102 sLOAD TEST FPS 
171411 s@TEST INSTRUCTION 
170011 ;WAIT FOR POSSIBLE FPA TRAP. 
032737 000001 001042 sVERIFY A NO TRAP CONDITION 
001426 sBRANCH IF 
104000 7ALL ERRORS TO TRAP TO EMT VECTOR 
000402 SUNTQUE ERROR NUMBER 
002013 sADDRESS OF ERROR MESSAGE 
s INSTRUCTION SHOULD HAVE TRAPPED 

000167 000042 sREJOIN CODE 

: INS 0 
032737 000001 001042 50$;: BIT #1, 80FLAG ;SEE IF EXPECTING A ge 
001005 BNE Sis :BRANCH IF EXPECTING A TRAP 
104000 ERROR PALL ERRORS TO TRAP TO EMT VECTOR 
000403 .WORD 403 sUNIQUE ERROR NUMBE 
002013 . WORD FPPERR ;ADDRESS OF ERROR N MESSAGE 


SEQ 0104 


AREAS 


GLOBAL 
KDJLLA.MAC 


MACY11 


15 -MAR -84 


ZS0A( 1052 ) 


15:51 
000020 


026702 


000020 
1$3112 
152000 


15-MAR - 84 
T66 


16:58 PAGE 105 
TEST MOOD 


s INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOIN CODE 























JMP 28 
S18: MOV (SP)+,R4 ISEE IF PC » INSTRUCTION 
TST (SP)» CLEAN UP STACK 
CMP 018,R4 
EQ 2% SBRANCH IF GOOD COMPARE 
ERROR SALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 404 ;UNIQUE ERROR NUMBER 
“WORD FPPERR sADDRESS OF ERROR MESSAGE 
sPC WAS INCORRECT 
4 
:COMMON CODE FOR TRAP AND NO TRAP 
2s: STFPS) RS sSAVE FPS 
MOV @200,R2 sSET FPP TO DOUBLE 
LOFPS R2 
@RECDST,R1 sPOINT TO RECEIVED DATA TABLE 
: SAVE FRACTIONAL Esu. T 
STO (RL) sSAVE ACO RESULT 
CMP aack5),A3 ;VERIFY STATUS 
BEQ sBRANCH IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
WORD 405 S UNIQUE ERROR NUMBER 
-WORD FPPERR se st sADDRESS OF ERROR MESSAGE 
3 
38; mov RS. Ra sPOINT TO EXPECTED DATA 
4s: usr a? On S ATVER ;VERIFY DATA 
5s sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
SUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
s8AD Aco 
sSAVE IN 
53: T sSAVE ACL RESULT 
sPOINT 10 EXPECTED 
s VERIFY DATA 
é 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
;ADDRESS OF ERROR MESSAGE 
sBAD ACL 
68: 2SEE IF NEED TO CHECK FEC 
IF NEED TO CHECK 
78: 
BRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR NUMBER 
1s ADDRESS OF ERROR MESSAGE 
8s: inetunn #ROM TEST 





SEQ 9105 


“2 


RbORtR. ARES STARA tA SPECZPS2? '9-"AR; BS 16:98, PAB 106 


027136 
027136 


000140 
177777 


177777 


000110 
177777 
177777 


000120 


177777 
000000 


100000 





HOP 15; 
MSFD:;: 
3 ESAOHAHEAHSADEEEEEEEEAOEEEEEOEHOEEREEEEEEEEEREROEEEEDROOEEEEEDEOS 
s@TEST 67 TEST STCFO 
3 LASOHEAOSEHSASASEOSEAEEEAEEAEEEEEEAOOHHAEEEEEE REDE EREEHAEOREDESS 
TST6?: 
INC $TESTN s INCREMENT TEST NUMBER 
317AC*0 
JSR R7,SFOSU8 300 TEST 
. WORD 0177,0,0,1 ;ACO 
-WORD 0,0,0,0 sRESULT 
; 47557 3s TEST FPS 
. WORD 47544 sRESULT FPS 
327AC>0, TRUNCATE 
JSR R7,SFOSUB 300 TEST 
. WORD 77577,-1,-1,-1 3ACO 
. WORD 77877,-1,0,0 sRESULT 
-WORD 7540 ; TEST FPS 
-WORD 7540 sRESULT FPS 
:3/AC<0, ROUND 
JSR R7,SFOSUB 3:00 TEST 
. WORD 100377, -1,100000,0 sACO 
. WORD 100377, -1,0,0 sRESULT 
-WORDB 7517 s TEST FPS 
-WORD 7510 sRESULT FPS 
347AC=-0 
JSR R7,SFOSUB 300 TEST 
-WORD 100000,0,0,0 ,ACO 
. WORD 0.0.0.0 sRESULT 
- WORD 7757 3 TEST FPS 
WORD 7744 sRESULT FPS 
357AC<0 
JSR R7,SFOSUB 300 TEST 
WORD 125252,125252, 125252, 125252 ;ACO 
WORD 125252, 125252,0,0 sRESULT 
-WORD O 3 TEST FPS 
- WORD 10 sRESULT FPS 


8GET OVER SUBROUTINE 


HOP 1 
gs oXeXeXeXeXeXeXaXeKeXeKeXeXeXeXeXaXeXeXeKeXeXeXeXeXeXeXeXeX 
peXeXeKeXeKeXeXeXeXeXeXeXeXeXeXeXeKeXeXekeXeXeXexeXeXeXeXex 


sSTCFD 
5 ACO 
3 RESULT 


SEQ 9106 


GLOBAL 


AREAS 


KDJ11A.MAC 


MACY11 S30A( 1052) 
15 -MAR - 84 


005037 


15:51 


027444 000244 
000200 


001126 
000020 


000010 
152522 
151410 


151322 
001042 


15 -MAR - 84 
T67 


U2 
16:58 PAGE 107 
TEST STCFD 


FPS BEFORE EXECUTION 
. FPS AFTER EXECUTION 


| THERE CAN BE *:0 TRAPS WITH THE STCFD INSTRUCTION 
3 OXOXeXeXaXeXakeXaeXaXaeXeXaXaXaXaXaXaXeXaxaXeXeXeXeXKeXexeX eX 
NTE Oe NENA NONER 


SFDSUB: MOV (SP)+,R5 RETURN ADDRESS TO USE AS POINTER 
MOV 0508, @eFPVEC REDIRECT TRAP VECTOR 
MOV @200.R2 1SET TO DOUBLE MODE FOR LOAD 
LOFPS R2 ;LOAD FPS 
LOD (RS), ACO ;LOAD ACO WITH TEST DATA 
MOV ORECDST RI SPOINT TO RESULT AREA 
MOV 20CR5), R2 ;GET TEST FPS 
LOFPS ;LOAD TEST FPS 
$ 
408: STCFD ACO,(R1) ;eTEST INSTRUCTION 
i INSTRUCTION DIONT TRAP 
:;VERIFY STATUS 
2$: STF R3 ;SAVE FPS 
MOV 22(R5),R2 ;GET EXPECTED STATUS 
CMP R2,R3 ;VERIFY STATUS 
BEQ 38 ;BRANCH IF 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 411 ;UNIQUE E 
"WORD FPPERR sia rpg /MDORESS OF ERROR MESSAGE 
3 
38: MOV . ;POINT TO EXPECTED DATA 
ADD 010,R4 
4: JSR R7,DATVER ;VERIFY DATA 
TST COUNT 
BEQ S53 ;BRANCH IF GOOD 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 412 TUNIGQUE ERROR NUMBER 
“WORD FPPERR ae aco MDORESS OF ERROR MESSAGE 
a 


24(R5 > 


S$: sRETURN FROM TEST 
INSTRUCTION TRAPPED 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
sRETURN FROM TEST 






$3 er he eee ee nennenanaee 
TCOF 


s¢TEST 70 TEST 


5 mdnbinalinesadeunausnatynstsinheesi nied biaaeibinmnsisiiiieneban 
TST70: 
INC sTESTN : INCREMENT TEST NUMBER 


317AC=0 
CLR @e@F LAG 3NO INTERRUPT 


SEQ 9107 


GLOBAL. 


AREAS 


KDJ11A.MAC 


MACY11 30A( 1052) 
15-MAR-84 15:51 


012737 
004767 
077777 


000220 
000000 


0SS5555 


177777 
000000 


000232 


15-MAR-84 16: 72. ¢ 08 
T70 STeor 


000000 


000200 


177777 


001042 
100000 


125252 


001042 
177777 











JSR R7,SOF SUB 300 TEST 
. WORD 177,0,0,0 3ACO 
WORD 0,0 sRESULT 
-WORD 200 s TEST FPS 
-WORD 204 sRESULT FPS 
:2/AC#-0 
L BOF LAG sNO INTERRUPT 
JSR R7,SOF SUB 300 TEST 
. WORD 100000 , 300, 200, 100 3ACO 
. WORD 7777 s TEST FPS 
-WORD 7744 sRESULT FPS 
337AC>0, weet 
CLR BOF LAG 3NO mete 
JSR R7, SOF SUB 300 TEST 
. WORD 55555, 55555, -1,-1 sACO 
-WORD 55555,55555 pent 
. WORD a 3 TEST FPS 
. WORD sRESULT FPS 
347AC<0, ROUND 1 UNDEF INED VARIABLE 
MOV 01, 80F LAG s INTERRUPT 
JSR 7, SOF SUB 3:00 TEST 
. WORD 77777, -1.100000,0 3ACO 
-WORD 0,0 sRESULT 
-WORD 1200 s TEST FPS 
-WORD 101206 sRESULT FPS 
ROUND 
BOFLAG sNO INTERRUPT 
R7, SOF SUB 300 TEST 
125252, 125252, 125252, 125252 :ACO 
125252,125253 a 
7700 3s TEST F 
7710 sRESULT FPS 
TRAPS DISABLED 
BOF LAG s INTERRUPT 
s 300 TEST 
77777, “1, -1,0 3aCO 
0,9 sRESULT 
6700 ; TEST FPS 
6706 sRESULT FPS 
JMP HOP 17 3GET OVER SUBROUTINE 


3 

3 @XeXeXeXeXeXeXeXeXaXeXeXeXeXeXeXeXeXeXaXaXeXeXeXexexeXeXeax 

5 eXeXaXeXeXeXeXeXeXaXeXeXaXeXeXaXeXeXeXeXeXeKaXeXeXeaXexeXeX 
STCOF 

H 


ACO 
; RESULT 


SEQ 0108 


GLOBAL 


KDJLIA, 


AREAS 


MAC 


MACY11 S30AC( 1052) 
15-MAR-84 15:51 


1 


027774 
000200 


001126 
000014 


027746 


000016 


15-MAR-84 16:58 PAGE 109 
T70 TEST STCOF 
: FPS BEFORE EXECUTION 


000244 


001042 


001042 


. FPS AFTER EXECUTION 


SEQ 9109 


‘A TRAP CAN ONLY OCCUR IF ROUNDING CAUSES OVERFLOW 
3 @XOXeXeXaXaXaXeXaXaXeXaXaXeXaXeXaXaXeXeXaXeXaeXeXaXeXeXeXeX 
ee ONCE eNO aN SAT NONONINeNONON 


SDF SUB: MOV (SP)+,RS RETURN ADDRESS TO USE AS POINTER 
MOV @50$% , BOF PVEC ;REDIRECT TRAP VECTOR 
MOV #200 ,Re sSEY TO DOUBLE MODE FOR LOAD 
LOFPS Re sLOAD FPS 
L.00 CRS), ACO sLOAD ACO WITH TEST DATA 
MOV ORECOST ,R1 ;POINT TO RESULT AREA 
MOV 14(RS),R2 sGET TEST FPS 
LOFPS Re sLOAD TEST FPS 

; 

408; STCOF  ACO,(R1) s*TEST INSTRUCTION 

1%: STST (PC )+ sWAIT FOR POSSIBLE FPA TRAP. 
-WORD O sSTORE STATUS HERE. 


LINSTRUCTION DIDNT TRAP 










oe BOF LAG sVERIFY A NO TRAP CONDITION 
BEQ + rg IF GOOD 
ERROR ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 414 SUNTQUE ERROR NUMBER 
-WORD FPPERR sADDRESS OF ERROR MESSAGE 
s INSTRUCTION SHOULD HAVE TRAPPED 
JMP 2s sREJOIN CODE 
; INSTRUCTION TRAPPED 
508: BIT oF gala sSEE IF EXPECTING A TRAP 
Sis sBRANCH IF EXPECTING A TRAP 
sALL ERRORS TO TRAP TO EMT VECTOR 
415 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
2s sREJOIN CODE 
S18: CSP )+,R4 sSEE IF PC = INSTRUCTION 
(SP )- rCLEAN UP STACK 
#1%,R4 
2s ; BRANCH IF GOOD COMPARE 
sALL. ERRORS TO TRAP TO EMT VECTOR 
416 sUNIQUE ERROR NUMBER 
FPPERR 





3PC WAS 

3 
3 COMMON FOR TRAP AND NO TRAP 
sVERIFY STATUS 
2s: STFPS 3 

MOV 16(R5),R2 

CMP R2,R3 

BEG 33 

ERROR 

WORD 417 

-WORD FPPERR 


3BAD FPS 





OMEeT™ ERROR MESSAGE 


sSAVE FPS 
3GET EXPECTED STATUS 
: VERIFY STATUS 


+BRANCH IF GOOD 

TALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


GLOBAL AREAS 
KDJ1L1LA.MAC 


(59 


MACY11 30AC1052) 15-MAR- 16:58 PA 10 
-64 15:51 190 Test S Teor 


15-MAR 


000010 
152040 
150744 


150634 
040000 


140000 


3$; MOV RS ,R4 sPOINT TO EXPECTED DATA 
ADD #10,R4 
43; JSR R7,DATVFR ;VERIFY DATA 
TST COUNT 
BEQ S$ ;BRANCH IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 420 sUNIQUE ERROR NUMBER 
.WORD FPPERR _— we OF ERROR MESSAGE 
' 
S$: TST BOF LAG sSEE IF NEED TO CHECK FEC 
BNE 7$% sBRANCH IF NEED TO CHECK 
JMP 20(R5) sRETURN FROM TEST 
;VERIFY FEC 
7$: V @RECFEC ,R4 sPOINT TO FEC AREA 
STST CR4) sSAVE FEC 
CMP CR4),010 sVERIFY FEC FOR OVERFLOW 
BEQ 8s sBRANCH IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
-WORDB 421 sUNIQUE ERROR NUMBER 
WORD FPPERR oy Par OF ERROR MESSAGE 
é 
8$: JMP 20(R5) sRETURN FROM TEST 
3 
HOP 17: 
MSFOI: 


BF OO806005606060684606800606606666086460666686660860666666006664686666 

















s*TEST 71 TEST STCFO - USING ILLEGAL ACCUMULATOR 
S$ OO006000000000060606000066000000060600060606006060606000600600000006880060686 
TST71: 
INC sTESTN s INCREMENT TEST NUMBER 
4 —, sOISABLE INTERRUPTS 
3 
STCFD ACO,AC6 s*TEST ILLEGAL INSTRUCTION 
STFPS R2 sSAVE STATUS 
Ry 3SAVE FEC 
#140000 ,.R2 sVERIFY FER SET 
i3 ;BRANCH IF ERROR RECEIVED 
2QLL ERRORS TO TRAP TO EMT VECTOR 
422 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
7FER BIT NOT SET ON ILLEGAL INST. 
18: oes :VERIFY FEC = FLOATING OPCDOE ERROR 
4 
2:ALL ERRORS TO TRAP TO EMT VECTOR 
423 sVUNIQUE ERROR NUMBER 
FPPERR :ADDRESS OF ERROR MESSAGE 
sFEC INCORRECT 
2s: 
F 
MCLAD: 
589466066 6066066646666006664606460660660046 06806606066 06606066060060608060800000008 
s@TEST 72 TEST CLAD 


£5 OOO 60O606660666660066866066606666066060000606006000606000000600000000008 


TST72: 
INC STESTN : INCREMENT TEST NUMBER 


GLOBAL 


AREAS 


KDJLLA.MAC 


MACY11 S30A( 1052) 
15-MAR-84 15:51 


012701 


001726 
000200 
001126 


001256 
151672 
150560 


150472 
040200 


140200 


1S-MAR-84 16:58 PAGE 111 
T72 LROD 


TEST C 


| 


YY 


MOV OTAB47,R1 sPOINT TO DATA 
MOV 200 ,R4 sSET FPP STATUS TO DOUBLE 
LOFPS R4 
LODO (R1),ACO ’ 
MOV COST,R1 sPOINT TO DATA BUFFER 
STO ACO,(R1) sSTORE GARBAGE 
CLRD 1) sCLEAR DATA BUFFER 
MOV @TABE .R4 ;VERIFY BUFFER <0 
JSR R7,DATVER ; 
TST COUNT ’ 
BEQ 18 sBRANCH I RECDST = 0 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 424 sUNIQUE ERROR NUMBER 
.WORD FPPERR sADDRESS OF ERROR MESSAGE 
sRECOST NOT CLEARED 

1$: STFPS Re sSAVE STATUS 
CMP R2, #204 sVERIFY STATUS 
BEQ es BR IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 425 sUNIQUE ERROR NUMBER 
.WORD FPPERR sADDRESS OF ERROR MESSAGE 

sBAD STATUS 
es: 
MCLRI: 


8 3 9OOS8O8O60688686468 6860688 0600606086686606666606066080666060666666666068666 
AT 


s@TEST 73 


TEST CLRO, ILLEGAL 





Sern enn nnaeneonesenenensaanenageasnnoonscosesconcccce 
ST73; 
STESTN 
#40200 





2s: 


MLS1: 





s INCREMENT TEST NUMBER 

sDISABLE INTERRUPTS 

sLOAD STATUS 

s*@TEST INSTRUCTION WITH ILLEGAL ACC 
sSAVE STATUS 

SAVE FEC 





3sUNI ERROR 
sADDRESS OF ERROR MESSAGE 
sERROR IN FPS 
;VERIFY FEC =2 OPCODE ERROR 
;BRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
2; UNIQUE 
sADDRESS OF ERROR MESSAGE 
:BAD FEC 





8 8 OO96OO686666066066060466066640060064666060606006006006000000000000000000 


s*TEST 74 TEST LOFPS, STFPS MODE 1 


5 £9OO86606066606066060606060608606066060006600000000000000000000000000000008 
TS174;: 


SEQ O111 


- 


OBA. AREAS 
KDJLLA.MAC 


150422 
001136 
147757 
001116 
030462 


001156 


001116 


001116 


000012 


150304 
001136 
145557 
001116 
030600 


001140 


001120 


000244 


147757 


iY 


IS-MAR BA iScSh elie. tere PORE p dc reps MODE 1 


STESTN s INCREMENT iy NUMBER 


















INC 
MOV @TSTLOC ,R4 sPOINT R4 TO 
MOV @147757,(R4) sSETUP EXPECTED STATUS 
MOV @RECST,R1 ;SET BUFFER FOR RECEIVED STATUS 
V #108 , BOFPVEC sSETUP TRAP VECTOR 
LOFPS (R4) s*TEST INSTRUCTION 
STFPS (R1) s*TEST INSTRUCTION 
R4, @TSTLOC ;VERIFY R4 
BEQ is sBRANCH IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 430 sUNIQUE ERROR NUMBER 
.WORD FPPERR sADDRESS OF ERROR MESSAGE 
: 
18: R1,@RECST sVERIFY Ri 
BEQ 2s ;BRANCH IF GOOD 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
431 sUNIQUE ERROR NUMBER 
.WORD FPPERR ead wi sADDRESS OF ERROR MESSAGE 
; 
2s: @ORECST, 0147757 s VERIFY Status 
BEQ 33 +g GOOO 
ERROR L ERRORS TO TRAP TO EMT VECTOR 
-WORD 432 NIQUE ERROR w 
WORD FPPERR sADDRESS OF ERROR MESSAGE 
;BAD STATUS 
Pp 38 sGET OVER TRAP 
sUNEXPECTED TRAP 
108: MOV CSP )>+,RO sSAVE PC 
CSP )+,RS sSAVE PS 
2s4LL ERRORS TO TRAP TO EMT VECTOR 
4335 sUNIQUE ERROR NUMBER 
FPPERR sADDRESS OF ERROR MESSAGE 
sUNEXPECTED TRAP 
38; 
MLSe: 
Peay Cee Ree Renan enenennennnnonnnoonsente 
seTEST 75 T LOF PS, STFPS MODE 2 
jjesacenaenseessassasecsscascossucsssasassnsenssnsseasonsensense 
TST7S: 
INC STESTN 
MOV @TSTLOC ,.R4 
MOV 0145557,(R4) 
MOV @RECST. Ri 
MOV #108 ,@OFPVEC 
LOFPS CR4)> 
STFPS (R1L)- 
CMP R4, @TSTLOC-2 
BEG is ’ IF GOOD 
ERROR 3sALL ERRORS TO TRAP TO EMT VECTOR 
WORD 434 :sUNIQUE ERROR NUMBER 
WORD FPPERR :ADDRESS OF ERROR MESSAGE 
: 
1%; CMP R1, @RECST+2 2: VERIFY Ri 
BEQ 2% ;BRANCH IF GOOD 


SEQ 9112 


GLOBAL 


KDJLI1A. 


AREAS 
MAC 


MACY11 30A( 1052) 
15-MAR-84 15:51 


001412 


001116 145557 28: 


000012 


001150 


001116 


000012 


15 -MAR -84 
T7S 


001156 
001142 


001146 
000244 


147501 


JI 


16: 3e PAGE 113 5 0 
TEST LDFPS STFPS MODE 2 me S115 
ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 435 sUNIQUE ERROR NUMBER 
. WORD FPPERR aan i sADDRESS OF ERROR MESSAGE 
; 
CMP BORECST, 6145557 ; VERIFY STATUS 
BEQ 3$ sBRANCH F GOOD 
ERROR sALL ERRORS TO . TO EMT VECTOR 
. WORD 436 sUNIQUE ERROR NUMBER 
. WORD FPPERR sADDRESS CF ERROR MESSAGE 
;BAD STATUS 
JMP 3$ ;GET OVER TRAP 
s;UNEXPECTED TRAP 
108; — (SP)+,RO pr PC 
CSP)+,RS AVE PS 
ERROR 3, ALL ERRORS TO TRAP TO EMT VECTOR 
. WORD 437 sUNIQUE ERROR NUMBER 
. WORD FPPERR sADDRESS OF ERROR MESSAGE 
s UNEXPECTED TRAP 
38: 
MLS3: 


& 899808 68860666086646666066666666666660686606666666666646466666408666 













;eTEST 76 TEST LOFPS, STFPS MODE 3 
3 8 9008066000806 6606068606006668 066660606646 6666666666666666646666266666666 
TST76: 
STESTN ;INCREMENT TEST NUMBER 
eTSTLOC,R4 ;POINT R4 TO RAM 
@TSTLOC +4, @@TSTLOC ;TSTLOC= DEFERRED ADDRESS 
0147501, @@TSTLOC +4 ;SETUP EXPECTED STATUS 
@TSTLOC:10,A1 3R1 POINTS TO TSTLOC-10 
ORECST Oe TSTLOC +10 SET DEFERRED BUFFER FOR RECEIVED status 
0108. @aFPVEC CTOR 
acre). ;@TEST INSTRUCTION 
@Ri)» ;@TEST INSTRUCTION 
R4, OTSTLOC+2 
18 ;BRANCH IF GOOD 
;ALL ERRORS TO TRAP TO EMT VECTOR 
440 |UNIQUE ERROR 
FPPERR ;ADORISS OF ERROR MESSAGE 
18: chp RL. @TSTLOC+12 :VERIFY Ri 
BEQ 26 ;BRANCH IF GOOD 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
“WORD 441 ;UNIQUE ERROR NUMBER 
-WORD *FPPERR om mi sADDRESS OF ERROR MESSAGE 
3 
28: chp BORECST, 0147501 :VERIFY STATUS 
BE 3s ; F GOOD 
: :ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 


ADDRESS OF ERROR MESSAGE 
3BAD STATUS 
38 GE? OVER TRAP 
(SP )+,RO :SAVE PC 





AREAS 


GLOBAL. 
KDJ11A.MAC 


030744 
030746 


030746 


031012 
031014 


031016 


031072 


005267 
012704 


20 
031054 


001136 


001116 


001116 


000012 


147712 
001140 


001136 
000244 


147757 


IK9 


IS-MAR=B4°15:51 1 AREGS 16 FB SPORE DEM creps MODE 3 


MOV (SP )+,RS ; SAV 
ERROR sALL ERRORS. To. TRAP TO EMT VECTOR 
-WORD 443 sUNIQUE ERROR NUMBER 
.WORD FPPERR sADDRESS OF ERROR MESSAGE 
- s UNEXPECTED TRAP 


MLS4: 
TREE ae taal anak cabba anmatanonsensseccosooosononoce 


















;eTEST 77 TEST LOFPS, STFPS MODE 4 
§ FE SSHHAAAAAAEAASAREDEEAAEEEAEEEDREDAEEEHOREEAREEEEEEEOEEEAEEEERODEELSE 
TST7?: 
INC $TESTN ; INCREMENT TEST NUMBER 
MOV @TSTLOC+2,R4 POINT R4 TO RAM 
MOV 0147757, @@TSTLOC ;TSTLOC* STATUS 
MOV @RECST+2,R1 ;SET BUFFER FOR RECEIVED STATUS 
MOV 0108 , @OFPVEC ;SETUP TRAP VEC 
LOFPS -C(R4) ;¢TEST INSTRUCTION 
STFPS -C(Ri) ;@TEST INSTRUCTION 
CMP R4,e@TSTLOC ;VERIFY R4 
BEQ is ;BRANCH IF GOOD 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 444 ;UNIQUE ERROR 
"WORD FPPERR sADDRESS OF ERROR MESSAGE 
é 
18: CMP R1, @RECST ;VERIFY R1 
BEQ 28 ;BRANCH IF GOOD 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 445 ;UNIQUE ERROR NUMBER 
"WORD FPPERR ae ;ADDRESS OF ERROR MESSAGE 
3 
23: cn QORECST, 0147757 ;VERIFY STATUS 
S 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 446 UNIQUE ERROR NUMBER 
“WORD FPPERR :ADDRESS OF ERROR MESSAGE 
sBAD STATUS\ 
JMP LT :GET OVER TRAP 
;UNEXPECTED TRAP 
10$: | MOV (SP)+,RO sSAVE PC 
MOV (SP)>,R5 3SAVE PS 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 447 :UNIQUE ERROR NUMBER 
“WORD FPPERR iADDRESS OF ERROR MESSAGE 
me ;UNEXPECTED TRAP 
MLSS: 


5 5 %9OS06060066686660406606606866606 6 06020060000060000000006000000000000 


;#TEST 100 T LOFPS, STFPS MODE 5 
$$ 2O400666606660666066060660606600640060000000000000000000000000000000 
TST100: 
INC sTESTN ; INCREMENT TEST NUMBER 
MOV OTSTLOC+2,R4 :POINT R& TO RAM 


SEQ 9114 


GLOBAL 


KDJLIA. 


AREAS 
MAC 


031076 


031204 


031210 
031212 
031214 
031216 
031220 


031222 


031222 


031276 
031302 


MACY11 30AC 1052) 
15-MAR-84 15:51 


012737 


001116 
031210 


001156 


001146 


001116 


000012 


001246 


15-MAR -84 
T100 


001136 
001142 


001146 
000244 


147501 


001142 
000244 


LY 
16:58 PA 


GE 115 
TEST LOFPS, STFPS MODE 5 


SEQ 0115 


MOV @TSTLOC+4,@0TSTLOC ;TSTLOC= DEFERRED ADDRESS 
MOV #147501, 9@TSTLOC +4 'SETUP EXPECTED STATUS 
MOV @TSTLOC+12,R #R1 POINTS TO 412 
MOV ORECST, ge TSTLOC +10 :SET DEFERRED BUFFER FOR RECEIVED STATUS 
MOV 0108 ,Q0FPV VEC ;SETUP TRAP VECTOR 
LOFPS @-(R4) ;@TEST INSTRUCTION 
STFPS. (R19 ;*TEST INSTRUCTION 
CMP R4, eTSTLOC ;VERIFY R4 
BEQ 1$ ;BRANCH IF GOOD 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
“WORD 450 ;UNIQUE ERROR NUMBER 
WORD FPPERR ;ADDRESS OF ERROR MESSAGE 
1$: CMP R1, TSTLOC+10 ;VERIFY R1 
BEQ 23 ;BRANCH IF GOOD 
ERROR s ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 451 ;UNIQUE ERROR NUMBER 
-WORD FPPERR _ ;ADDRESS OF ERROR MESSAGE 
a 
23: CMP BORECST, 0147501 ;VERIFY STATUS 
BEQ 33 ;BRANCH F GOOD 
ERROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
.WORD 452 ;UNIQUE ERROR NUMBER 
"WORD FPPERR ;ADDRESS OF ERROR MESSAGE 
;BAD STATUS\ 
UMP 3% ;GET OVER TRAP 
;UNEXPECTED TRAP 
10$: | MOV (SP)+,RO ;SAVE PC 
MOV (SP)-, PS 
RROR ;ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 453 ; UNIQUE 
“ WORD ;ADDRESS OF ERROR MESSAGE 
86 sUNEXPECTED TRAP 
MLS6: 
3 8 928204606446848 6060666666646 0660466606 0606046664666606066460660600600004608 
34TEST 101 TEST LDFPS, STFPS MODE 6 
83 $268268046666666666446666046666064600044604606060000606000060000000048 
TST101; 
INC $TESTN :INCREMENT TEST NUMBER 
MOV @TSTLOC,R4 ;POINT R4 TO RAM 
MOV #140001 ,eTSTLOC +4 ;SETUP EXPECTED STATUS 
MOV @TSTLOC+110,R1 ;R1 WILL POINT TO TESTLOC+10 
MOV 010% pareve’ ;SETUP TRAP VECTOR 
LOFPS 4(R4) ;@TEST INSTRUCTION 
STFPS  - L00(R1) 3eTEST INSTRUCTION 
CMP R4,eTSTLOC :VERIFY RG 
BEQ 18 :BRANCH IF GOOD 
ERROR 3ALL ERRORS TO TRAP TO EMT VECTOR 
-WORD 454 ;UNIQUE ERROR 
"WORD FPPERR ;ADDRESS OF ERROR MESSAGE 
i$: CMP R1, OTSTLOC +1106 :VERIFY Ri 
BEQ 23 ;BRANCH IF GOOD 


GLOBAL A 


KDJ11A.MA 


6095 
6096 


031304 
031306 
031310 


031312 
03 


031470 
031474 


001412 
000 


REAS 1S MAN ba ges 89>? 15- “Tank, 


001146 140001 23%; 


000012 


001046 


001146 


000012 


001136 
001142 
001140 
000244 


145501 


JMP 3$ 
;UNEXPECTED TRAP 
108: MO CSP)+,RO 
CSP)+,R5 


3$: 


MLS7: 


ERROR 


455 
FPPERR 


M9 


te eT OBE So ctees MODE 6 


;BAD R1 


B¢TSTLOC +10, 140001 


456 
FPPERR 


457 
FPPERR 


sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR ER 
sADDRESS OF ERROR MESSAGE 


s VERIFY STATUS 

sBRANCH F GOOD 

sALL ERRORS on” TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


;BAD STATUS\ 


s ADDRES 
s UNEXPECTED TRAP 


:;GET OVER TRAP 
sSAVE PC 
sSAVE PS 
sALL ERRORS TO TRAP TO EMT VECTOR 
OR NUMBER 


sUNIQUE ERR 
S OF ERROR MESSAGE 


8 8 S92O4088046646060660686666606660666066666662666666666666666666466666 
MODE 7 


TEST LOFPS, STFPS 


3*TEST 102 


8 §OSS34 .6666666664684664646666606666666666664666666666664666646646646666 


TST102: 


gaasezax $8 


ts 





abr? aa? a 


sTESTN 
@TSTLOC+100,R4 





Shaaban alters 
TSTLOC +4 


oc - 70, Ri 
@TSTLOC 10. B@TSTLOC +2 
SOF PVEC 


#145501, 
@TSTL 





460 
FPPERR 


3-100CR4) 


972(Ri) 
Ra, eTSTL.0C+100 






2¢ 


461 
FPPERR 


BAD Ri 
BeTSTLOC +10, 0145501 


462 
FPPERR 


JMP 3$ 
sUNEXPECTED TRAP 


10$; 


MOV 


CSP )+,RO 


;BAD STA 





E STA 
sR1 POINTS TO TSTLOC+10 


“8 
sSETUP TRAP VECTOR 


s*TEST INSTRUCTION 
;*TEST INSTRUCTION 
3; VERIFY 
;BRANCH iF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
s UNIQUE ERROR 
:ADDRESS OF ERROR MESSAGE 
2; VERIFY Ri 
sBRANCH IF GOOD 
FALL ERRORS TO TRAP TO EMT VECTOR 
s;UNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
3: VERIFY dh 
;BRANCH F GOOD 
SAL ERRORS TO TRAP TO EMT VECTOR 
: UNIQUE 
1 ADDRESS OF ERROR MESSAGE 
;GET OVER TRAP 


;SAVE PC 












SEQ 9116 


AREAS 


GLOBAL. 
KDJ11A.MAC 


031476 
031500 
031502 
031504 


031506 


031506 


031570 
031572 


031574 


031626 
031626 


1s” 


005267 


ACY11 450862052) 


147272 
007700 
031562 


000012 


001266 
001126 


150334 
147222 


147152 


15-MAR -84 


000244 


16: PAGE 117 
T102 Test L FPS. STFPS MODE 7 
CSP)+,RS 


3$; 


MLOCe: 


MOV 
ERROR 


. WORD 
. WORD 


463 
FPPERR 


NY 


;SAVE PS 
sALL ERRORS TO TRAP TO EMT VECTOR 
;UNI ERROR NUMBER 


DRESS OF ERROR M=SSAGE 


sAD 
s UNEXPECTED TRAP 


a a teat Cae tee teen entonoonnnsennes 


;#TEST 103 
i LPRAAAEHEREEDEARAEAEEREEESEESEEEEEEAREEEEAEEAODEEAEEREBEDEEEREES 


fa el TEST NUMBER 


TST103: 


10: 


23: 


MLCF : 


5 5 %OO6O06666660646.60660084466 6660066066 0660660600046000060000600000000000000 


#25868 
o w 


gg access ga gees ga 25888 


s*TEST 104 


INC 


TEST LOCLD MODE 27 


$fESTN 
R1 
ae 


yt = oy tga 


7)+,ACO 


TEST LOCIF, LOCLF 
5 3 94O666006646640600606666660600600600000060000000000000000000000000000 
TST104; 

sTESTN 


SINIT 
FPS eDOUBLE, LONG 


3 
sSETUP WILD TRAP 
s*TEST INSTRUCTION 


3 
3; VERIFY 


sBRANCH IF 


GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
NUMBER 


S UNTQUE ERROR 
SS OF ERROR MESSAGE 


3 ADDRE 
, INSTRUCTION FAILED 


sJUMP OVER WILD TRAP 
: SAVE PC 


sSAVE PS 
ALL ERRORS TO TRAP TO EMT VECTOR 


SUNTQUE ERROR 


sPOINT 
sPOINT 
3; VERIFY 


ERROR 
sADDRESS OF ERROR MESSAGE 
sBAD DATA 


OF ERROR MESSAGE 
ION 


sWILO TRAP ON _ INSTRUCT 


TO gy DATA 
‘maa BUFFER 


s INCREMENT TEST NUMBER 


SEQ 0117 


GLOBAL 


AREAS 


KDJL1A.MAC 


6207 
6 


031 

031670 
031672 
031676 
031710 
031712 


031770 


031772 
po Bh. 


MACY1L1 39AC 1052) 
15-MAR-84 {5:51 


004767 
000000 


000260 


1S-MAR-84 16:58 PA 
7104 


OLY 


GE 118 
TEST LOCIF, LOCLF 


:1/INT*O 
WORD 
WORD 
WORD 
. WORD 
sete 


JSR 


34/INT=40000 
J 


558" 5555" 


4 a 
m 
2 


:5/LONG= 


36/INT =P 


ga55° 5558°95555% 





3 7/IN‘*e.- 


38/INT=- 


> 
—4 


39/ INT *PATTERN 


3 10/7LONG 


oasabe 


R7,LCF SUB 
0,0 





R7,LCFSUB 
125252, 125252 
143652, 126000 
10 


R7,LCFSUB 


300 TEST 
sF SRC 
sRESULT 
s TEST FPS 
sRESULT FPS 

300 TEST 
sF SRC 
sRESULT 
s TEST FPS 
sRESULT FPS 


300 TEST 
sF SRC 


sRESULT 
s TEST FPS 
sRESULT FPS 


300 TEST 
sF SRC 


sRESULT 
3 TEST FPS 
sRESULT FPS 


300 TEST 
sF SRC 


sRESULT 
3s TEST FPS 
sRESULT FPS 


300 TEST 
sF SRC 


sRESULT 
3 TEST FPS 
sRESULT FPS 

300 TEST 
3F SRC 

ee 
3 TEST F 
sRESULT FPS 


300 TEST 
3F SRC 


sRESULT 
s TEST FPS 
sRESULT FPS 


a 
3 TEST FPS 
sRESULT FPS 


300 TEST 


SEQ 9118 


000160 
177777 
000000 


000120 
177500 
177777 


000060 
000100 
000000 


LLY 
ARES a sTARAtMS BSCE? 15" HRS 16986 PORE cur 


"WORD © 49g00'0 
. WORD 117 








. WORD 100 
s;11/LONG=1 
JSR R7,LCFSUB 
. WORD QO, 
.WORD 40200,0 
. WORD 7557 
. WORD 7540 
:12/LONG*PAT TERN 
JSR R7,LCFSUB 
WORE OO, 252 
. WORD 42052, 0 
. WORD 7557 
.WORD 7540 
:13/LONG = -4 
. WORD -40000, 
. WORD 147600,0 
. WORD 107 
. WORD 110 
314/LONG=-1 
SR R7, L_CFSUB 
. WORD -1,-1 
. WORD 140200 ,0 
. WORD 
-WORD 7510 
315/LONG=*PATTERN 
JSR R7 LCFSUB 
. WORD 
. WORD 
. WORD 
. WORD 
8 16/LONG*77777,17 
JSR R?7, 
WORD 77777,17 
.WORD 4 7777, 177777 
-WORD ii 
WORD 1 
NT IOS ors 
-WORD 40000, 1 
. WORD 47600,1 
-WORD 7502 
. WORD 7500 
318/LONG=40000,100 - TRUNCATE 
JSR R7, SUB 
. WORD 4 + 100 
. WORD 4 ® 
-WORD 7557 
. WORD 
319/INT= MOST NE 
JSR R7 ALF sue 


2 
58: 
8835 
oo 


s TEST FPS 
sRESULT FPS 


300 TEST 


sRESULT FPS 
300 TEST 
sF 
sRESULT 
s TEST FPS 
sRESULT FPS 
100 TEST 
sF SRC 
sRESULT 
3 TEST FPS 
sRESULT FPS 


300 TEST 
sF SRC 


sRESULT 
3 TEST FPS 
sRESULT FPS 


300 TEST 
sF SAC 


sRE 
3; TEST FPS 
sRESULT FPS 


190 TEST 
rere T 
» Test Ames 
sRESULT FPS 
300 TEST 
3F SRC 


sRESULT 
3 TEST FPS 
sRESULT FPS 


sRESULT 
3 TEST FPS 
sRESULT FPS 

3 TEST 


RESULT 


SEQ 9119 


GLOBAL 


AREAS 


KDJLLA.MAC 


MACY11 30A( 1052) 
15-MAR-84 15:51 


000007 
000010 


004767 
100000 
150000 
000107 
000110 


000167 


000126 


032446 
001126 
000010 


000012 


000004 
147502 
146406 


i4ivV/ 


15-MAR-84 16:58 PAGE 120 

T104 TEST LOCIF, LOCLF 
.WORD 7 s TEST FPS 
.WORD 10 sRESULT FPS 

:20/LONG* MOST NEGATIVE 
JSR R7,LCF SUB s00 TEST 
. WORD 100000, 0 sF SRC 
-WORD 150000,0 sRESULT 
-WORD 107 s_ TEST FPS 
-WORD 110 sRESULT FPS 

3 
JMP HOP 16 sGET OVER SUBROUTINE 


3 @XeXeXeXeXeXeXaXaXaXaXaeXeXaXaeXaXaeXaXeXeXeXaXeXaXexeKeXexeX 
Ee a een ONeKeNaKeNeNeKeneXoKoheXoXexoner 


;LOCIF, LOCLF 
FSRC 


RESULT 
i FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 


:NO TRAP CAN OCCUR 


s eXeXeXeXeXeXeXeXeXeXaeXeXeXeXeXeXeXeXaXeXeaXeXeXeXeXeXeKeKeX 
g @XeXeXeXeXaXeXaXeXeXeXaXeXeXaXexeXeXeXeKeXeXeXeXeXeXeXeXex 





3 
LCFSUB: MOV (SP)+,R2 
000244 MOV 6508 . BOFPVEC 

MOV @RECDST .R1 
MOV LOCR2),RO 
LOFPS RO 
MOV R2,R4 

e 

3 

;VERIFY STATUS 

28: STFPS.)R3 
MOV #200,R0 





1 RETURN ADDRESS TO USE AS POINTER 
REDIRECT TRAP VECTOR 





3sLOAD TEST FPS 
sPOINT TO TEST DATA 
s*TEST INSTRUCTION CACCORDING TO MODE) 


sSAVE FPS 
sSET FPP STATUS TO DOUBLE 


: 

sSAVE TEST RESULT INTO RECDST 
3GET EXPECTED STATUS 

er STATUS 


IF GOOD 
FALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 





FPPERR s;ADDRESS OF ERROR MESSAGE 
3BAD FPS 
33; po pe sPOINT TO EXPECTED DATA 
43: R? .DATVER :VERIFY DATA 
S53 sBRANCH IF GOOD 
2ALL ERRORS TO eal TO EMT VECTOR 
470 SUNTQUE ERROR 
FPPERR :ADDRESS OF ERROR MESSAGE 


:BAD ACO 


SEQ 9120 


ELV 









GLOBAL AREAS MACY11 SOA 052) 15-MAR- 108 16; 2 
KDJL1A.MAC 15-MAR-64 15351 ti0a Fst CBE AR cir SEQ O121 
re de 032442 000162 000014 2 JMP 14(R2) sRETURN FROM TEST 
6377 1 INSTRUCTION TRAPPED 
6378 032446 012600. 50$ MOV (SP )+,RO sSAVE PC 
6379 032450 012605 MOV (SP)+,R5 sSAVE PS 
6380 032452 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
6381 032454 000471 . WORD 471 sUNIQUE ERROR NUMBER 
6382 032456 002013 . WORD FPPERR sADDRESS OF ERROR MESSAGE 
6383 , INSTRUCTION WASNT SUPPOSE TO TRAP 
6384 032460 000167 177756 JMP 53% s CONT INVE 
6385 032464 HOP 18; 
6386 
6387 032464 MLCD: 
6388 EE SROSSAAAEAEHOAEAESEEEEASADEEEEEEEEOEEEEEHEEEEEEEEEEEEEEODEEDESES 
6389 ;@TEST 105 TEST LOCIO, LOCLD 
6390 § § SO CeSHOOHEEOEHEEEOEEEEEEEOEEEEEEEOEEEEEEEHEEEEEEEOEEEEEEELOOEES 
6391 032464 TS7105: 
63y¥2 032464 005267 146314 INC sTESTN s INCREMENT TEST NUMBER 
6393 , 1ZLONG=0 
6394 032470 004767 000264 JSR R7,L_COSUB 300 TEST 
6395 032474 000000 000000 -WORD 0,0 3F SRC 
6396 032500 000000 000000 000000 ‘ 0,0,0,0 sRESULT 
6397 032506 000000 
6398 032510 007313 -WORD 7313 3 TEST FPS 
6399 032512 7304 . WORD 7304 sRESULT FPS 
6400 3c/INT#O 
6401 032514 004767 000246 JSR R7,LCOSUB 3:00 TEST 
6402 000000 000001 . WORD ® 3F SRC 
6403 032524 040200 000000 000000 -WORD 40200,.0.0,0 sRESULT 
6404 032532 000000 
6405 032534 007757 . WORD 7757 3s TEST FPS 
6406 032536 007740 -WORD 7740 sRESULT FPS 
6407 33/INT=40000 
6408 0352540 004767 000214 JSR R7,LCOSUB #00 TEST 
6409 032544 177777 - WORD evi s* SRC 
6410 032550 043600 -WORD 43600,0,0,0 SRESULT 
WORD 7617 3s TEST FPS 
-WORD 7600 sRESULT FPS 
JSR R7, LCOSUB 
- WORD - e*i 
-WORD 143600,0,0,0 
-WORD 7600 
-WORD 7610 
40000 
JSR R7, L_COSUB 
6423 032614 . WORD 0 
6424 032620 047600 000000 000000 » WORD 47600,0,0,0 sRESULT 
6425 032626 
6426 032630 007757 -WORD 7757 3 TEST FPS 
6427 032632 007740 . WORD 7740 sRESULT FPS 


6428 36/LONG*1 
6429 032634 904767 000120 JSR R7,._.COSUB 300 TEST 
000000 WORD 0,1 3F SRC 


: 


GLOBAL 
KDJLIA, 


AREAS 
MAC 


040200 
000000 


177014 


170203 
012700 
170100 


000000 000000 


000074 
177776 
000000 


000126 


033070 
001126 
000014 


126000 


000244 


ray 


IS-MAR-B4 15:3) >} MAR EGS 16:98. PARE TA? oc 


-WORD 40200,0,0,0 sRESULT 
. WORD 300 s TEST FPS 
-WORD 300 sRESULT FPS 
; 7/LONG=-2 
R7,LCOSUB 300 TEST 
. -1,-2 sF SRC 
. WORD 140400 ,0,0,0 sRESULT 
. WORD 7300 s TEST FPS 
. WORD 7310 sRESULT FPS 
:8/INT=PATTERN 
JSR R7,LCOSUB 300 TEST 
.WORD 123456,176543 iF SRC 
. WORD 143661 ,122000,0,0 sRESULT 
-WORD 200 3; TEST FPS 
-WORD 210 sRESULT FPS 
:9/LONG*PATTERN 
JSR R7,LCOSUB 300 TEST 
. WORD 1 » 125252 3F 
-WORD 147652,125252,126000,0 sRESULT 
-WORD 300 3; TEST FPS 
-WORD 310 sRESULT FPS 
: 
2 
JP HOP19 sGET OVER SUBROUTINE 


H 

3 oXeXeXeXeXeXeXeXaeXeXeXeXaXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXexX 
ee a enaneneNeteReneneheRekeneReKeKekekex 
;Loc . 






FSRC 


RESULT 
FPS BEFORE EXECUTION 


; 
; 
: 
; 
; FPS AFTER EXECUTION 
; 





;NO TRAP CAN OCCUR 
s eXeXeXeXeXeXeKeXeoXeXeXeXeXKeXeKXeXeXeXeKeXeXeKXeXeXeXeXeXeXeX 
 *XeXeXeXeXaXeXeXeXeXeXeXeXeXeXe VeXeXeXeXeXeXeXaXeXeXeXaXeX 






3 
LCDSUB: MOV (SP)+,R2 ; RETURN ALORESS TO USE AS POINTER 
MOV 0508 , BOF PVEC ;REDIRECT TRAP VECTOR 
Ov ORECDST RI 
MOV 14(R2),RO 
LOFPS RO :LOAD TEST FPS 
MOV R2,R4 :POINT TO TEST DATA 
3 
40%: LOCID (R4),ACO :eTEST INSTRUCTION (ACCORDING TO MODE? 
, 
;VERIFY STATUS 
2$; STFPS) RS :SAVE FPS 
MOV €200,R0 :SET FPP STATUS TO DOUBLE 
LOFPS RO 3 


SEG 9122 


GLOBAL A as 
KDJLLA.MA 


033016 


174011 


000016 


000004 
147076 
145764 


000020 


177756 


001042 
001102 
070123 


070125 


025252 


025252 


100000 


38; 
4$; 


“gag 


1S MAR be pac ggoe? «15 -MAR 68. 16:98. ,P6 


25 
1h LOCLD 
STO ACO,(R1) 
MOV 16(R2),RO 
CMP RO,R3 
BEQ 33 
ERROR 
.WORD 472 
.WORD FPPERR 
MOV R2,R4 
ADD 04 ,R4 
JSR R7,OATVER 
TST COUNT 
BEQ 53 
ERROR 
WORD 473 
.WORD FPPERR 
JMP 20(Re2) 
; INSTRUCTION TRAPPED 
508: MOV (SP)+,RO 
MOV CSP)+, RS 
ERROR 
WORD 474 
WORD FPPERR 
JMP 53 


3 
HOP 19: 
MLXP: 


;SAVE TEST RESULT INTO RECDST 
;GET EXPECTED STATUS 

; VERIFY STATUS 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 

sBAD FPS 
sPOINT TO EXPECTED DATA 


; VERIFY DATA 


sBRANCH IF GOOD 
sALL ERRORS an” TRAP TO EMT VECTOR 
sUNIQUE ERR Re 
sADDRESS OF  EANOR ME SSAGE 
sBAD ACO 
sRETURN FROM TEST 


PS 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 
; INSTRUCT ION WASNT SUPPOSE TO TRAP 
: CONT INVE 


5 §O00000000000000600000000000600600600000000000000000008080000008086 
DOUBLE 


s*TEST 106 


BS 9SOO88006600666606668600 6660046 6000666606006066066666060606806008066686 


TST106: 


T LOEXP 


s17EXP*10 - AC=NEG 





INC STESTN s INCREMENT TEST NUMBER 
CLR Path 3sNO INTERRUPTS 
JSR LXPSUB 300 TEST 
. WORD Tosase. 67012,25252,171717 :ACO 
WORD 10 3ExP 
-WORD 142056,67012,25252,171717 sRESULT 
-WORD 7757 3: TEST FPS 
-WORD 7750 sRESULT FPS 
52/EXP=177 - ACO=POS 
CLR OOF. 3NO INTERRUPTS 
JSR R7,LxXPSuUB 300 TEST 
. WORD 23456, 70123, 1000001 :ACO 
- WORD 177 ,;ExP 
-WORD 77656, 70123, 100000,1 sRESULT 
. WORD 7700 2 TEST FPS 
. WORD 7700 sRESULT FPS 


SEG 9123 


GLOBAL AREAS 
KDJLLA.MAC 


005037 
004767 
055555 
022222 

56 


111111 


001042 
001006 
177777 
177777 
001042 
000750 
177777 


177777 


100000 


033335 


033333 


177777 


177777 


177777 


177777 


001042 
035363 


035365 


001042 
000456 


000456 


001042 
100000 


as 


1S-MAR=Ba 15:51 TOMARTEGS 16:88, COP Ke Béuee 








3; 3/EXP=56 
CLR oie: sNO INTERRUPTS 
JSR R7,LXPSUB 100 TEST 
. WORD 55855. 44444 , 33333 ,22222 sACO 
. WORD 56 sEXP 
. WORD 53555 , 44444 ,33333,22222 ;RESULT 
7757 s TEST FPS 
. WORD 7740 sRESULT FPS 
347EXP=-151, ACO#UV 
CLR Or sNO INTERRUPTS 
JSR R7,L_XPSUB 300 TEST 
. WORD 100077,-1,-1,-2 3ACO 
. WORD -155 s;EXP 
. WORD 104677,-1,-1,-2 sRESULT 
. WORD 7757 s TEST FPS 
-WORD 7750 sRESULT FPS 
35/EXP=-177 
CLR SOFLAG 3NO INTERRUPTS 
JSR R7,LXPSUB 300 TEST 
WORD 177,-1,-1.-2 3ACO 
. WORD -177 sEXP 
-WORD 377,-1,-1.-2 sRESULT 
. WORD 3; TEST FPS 
. WORD sRESULT FPS 
36/EXP= -200, UNDERF LOW 
MOV : INTERRUPTS 
JSR R7,LXPSUB 3:00 TEST 
- WORD -200 sExP 
-WORD 131,32334, 35363, 73031 sRESULT 
-WORD 7740 3s TEST FPS 
-WORD 107744 sRESULT FPS 
WORD ie FEC 
3 7/EXP*LARGEST NEGATIVE 
MOV 61 ,80F LAG sEXPECT INTERRUPTS 
an R?7 ,_XPSUB 200 TEST 
-WORD 0,123,456,1 3;ACO 
-WORD 100000 3;ExXP 
-WORD 40000,123,456,1 sRESULT 
-WORD 2200 ; TEST FPS 
-WORD 102200 sRESULT FPS 
-WORD i2 3FEC 
38/EXP*-200, NEG. ACO 
MOV @1,80FLAG 3: INTERRUPTS 
JSR R7,LXPSUB 300 TEST 


-WORD 111111, 100000 , 100000, -1 :ACO 


SEQ 9124 


A. AREAS 


GLOB 
KDJILA 


.MAC 


033732 


1S 


177777 


100000 


001042 
000440 
177777 


177777 


001042 
000402 
000100 


000100 


000342 
177777 


177777 


MACY11 s98( 3952) 15-MAR 
-MAR-84 15:51 


100000 


065452 


177777 


177777 


001042 
177777 


177777 


-64 16:58 P ig 
T106 ST LDEXP DOUBLE 
. WORD 


-200 ;ExP 
. WORD 100111, 100000, 100000, -1 








sRESULT 





. WORD 2217 ; TEST FPS 
. WORD 102214 sRESULT FPS 
. WORD 12 sFEC 
3;9/EXP=-1743, FIUs0 
MOV @2, sNO INTERRUPTS 
JSR R7, _XPSUe 100 TEST 
.WORD 123456, 12346, 12346, 123 sACO 
. WORD 0,0,0,0 sRESULT 
. WORD $700 ; TEST FPS 
WORD 5704 sRESULT FPS 
.WORD 12 sFEC 
:10/EXP =-16616, FID=1 
MOV @2,B0F LAG sNO INTERRUPTS 
JSR R7,LXPSUB 700 TEST 
-WORD 377,123456,65432,1 3ACO 
. WORD - 16616 3ExP 
-WORDB 47700 
-WORD 147700 
WORD 12 FE 
sL1/EXP*177, ACO=UNDEFINED VARIABLE 
CLR SOFLAG sNO INTERRUPTS 
JSR R77, LXPSUB 300 TEST 
.WORD 100177,-1,-1,-1 sACO 
. WORD “1, -1,-1.-1 sRESULT 
WORD 7700 3 TEST FPS 
WORD 7710 sRESULT FPS 
3127EXP=150 ACO=P0S 
CLR BOFLAG :NO J%*TERRUPT 
JSR R7,LXPSUB 3:00 TEST 
. WORD 200,100,200, 300 ;aCO 
WORD 150 gu xP 
-WORD 72000,100,200, 500 ;RESULT 
WORD 7717 3s TEST FPS 
-WORD 7700 sRESULT FPS 
313/EXP=200, ACO=NEG 
MOV #1, 80FLAG 
JSR R7,_XPSUB 300 TEST 
. WORD -1,-1,-1,-1 3;ACO 
-WORD 200 ,;ExP 
WORD 100177,-1,-1,-1 :RESULT 


SEQ 0125 


GLOBAL 


AREAS 


KDJ1L1A.MAC 


033740 
033742 
033744 
033746 


MACY11 30A( 1052) 
15-MAR-84 15:51 


177777 


012737 
767 
177773 


000002 
000300 
177777 


177777 


000236 
177777 


JLO 


15-MAR-84 16:58 PAGE 126 
T106 


001042 
177776 


177776 


001042 
177776 


000000 


001042 
000100 


000100 


000555 


000555 


001042 
000555 


000555 


EST LDEXP DOUBLE 






. WORD 7705 ; TEST FPS 
. WORD 107716 sRESULT FPS 
. WORD 10 ;FEC 
:14/EXP=400, FIO 
MOV —s.@2, BOF LAG s INTERRUPT 
JSR R7,L_XPSUB 300 TEST 
. WORD 555, -1,-2,-3 ;ACO 
WORD 400 sEXP 
. WORD 40155,-1,-2.-3 sRESULT 
. WORD 47700 s TEST FPS 
. WORD 147702 sRESULT FPS 
. WORD 10 sFEC 
:15/EXP=11011 FIU*s0 
MOV 0, 80F LAG :NO INTERRUPT 
JSR R7, LXPSUB 300 TEST 
. WORD 177773, - 1,-2.-3 3ACO 
. WORD 11011 sExP 
. WORD 0,0,0,0 sRESULT 
-WORDB 6700 3; TEST FPS 
-WORD 6706 ;RESULT FPS 
316/7EXP=LARGEST POSITIVE 
"Ov @1,80F LAG ; INTERRUPT 
JSR R7, LXPSUB 3:00 TEST 
.WORD 123456, 100, 100, 200 ACO 
. WORD 77777 sExP 
-WORD 137656,100,100, 200 sRESULT 
. WORD 3 TEST FPS 
. WORD iorrs2 sRESULT FPS 
-WORD 10 3FEC 
317/FLOATING 
CLR age sNO INTERRUPT 
JSR LxXPSUB 2:00 TEST 
. WORD tases. 23465,555,444 ;ACO 
WORD 50 | 3;ExP 
-WORD 152056,25465,555,4446 sRESULT 
-WORD 7500 3s TEST FPS 
-WORD 7510 sRESULT FPS 
318/FLOATING UNDERFLOW 
MOV 01, 80F LAG : INTERRUPT 
JSR R7 .LXPSUB 300 TEST 
. WORD 333,444 ,555 666 ;ACO 
-WORD -200 ;ExP 
-WORD 153,464 ,555,666 ;RESULT 
. WORD 7500 : TEST FPS 
. WORD 107504 sRESULT FPS 


SEQ 9126 


IN LY 















GLOBAL AREAS MACY11 a th 0OS2) 15- MAR 08 16: 127 
KOJI1A. MAC 15 -MAR 4 iocSe ‘e&r LOexP BoueLe 59 127 
6711 034212 000012 . WORD le sFEC 
6712 ;19/FLOATING OVERFLOW 
6713 034214 012737 000001 001042 MOV 01 ,80FLAG s INTERRUPT 
6714 034222 004767 000034 JSR R7,LXPSUB s300 TEST 
6715 034226 012346 000123 000345 . WORD 12346, 123,345,456 ;ACO 
6716 034234 000456 
6717 034236 000400 . WORD 400 ;EXP 
6718 034240 040146 000123 000345 . WORD 40146,123,345,456 sRESULT 
6719 034246 000456 
6720 034250 007400 . WORD 7400 ; TEST FPS 
6721 034252 107402 . WORD 107402 sRESULT FPS 
6722 034254 000010 . WORD 10 ‘ sFEC 
e754 7 
6725 034256 000167 000250 JMP HOP 20 sGET OVER SUBROUTINE 
6726 s aXaXeXeXaXeXaXeXeXaXaXeXeXeXaXaXeXeXeXeXeXaXeXeXeXeXeXeXeX 
6727 3 aXeXaXeXaXaXaXaXaXaXaXaXaXeXeXaXaXeXaXeXaXaXeXaXaXeXeXkeXKex 
6728 ;LDEXP 
6729 3 ACO 
6730 ; EXPONENT 
6731 3 RESULT 
6732 : FPS BEFORE EXECUTION 
6733 : FPS AFTER EXECUTION 
6734 ; (FEC) 
6735 : 
6736 3 *XeceXeXaXaXeaXeXaXaXeXeXeXeXaXeXaXeXeXeXeXeXeXeXaXeXaXeKeX 
etd aia aan aa ef tine gt ata 
6739 034262 012602 LxPSUB: MOV RETURN ADDRESS a USE AS POINTER 
6740 Oo 012737 034352 000244 MOV ;REDIRECT TRAP VECTOR 
6741 034272 012701 001126 MOV 
6742 034276 012700 MOV 
6743 034302 170100 LOFPS H 
6744 034304 010204 MOV sPOINT TO ACO DATA 
674S 034306 172414 LOD sLOAD ACO 
6746 034310 O1 000022 MOV sGET TEST FPS 
6747 034314 170100 LOFPS sLOAD TEST FPS 
ooan 034316 016204 000010 MOV sPOINT TO TEST DATA 
3 
6750 034322 176404 408: LOEXP s*TEST INSTRUCTION ie TO MODE) 
6751 034324 170327 1%: TST sWAIT FOR POSSIBLE FP 
pet 034326 000000 .- WORD :STORE STATUS HERE 
6754 
6755 ; INSTRUCTION DIDNT TRAP 
6756 034330 032737 000001 001042 BIT #1, 80FLAG ;VERIFY A NO TRAP CONDITION 
6757 034336 001426 BEQ 2% ;BRANCH IF 
6758 034340 104000 ERROR :ALL ERRORS TO TRAP TO ENT VECTOR 
6759 034342 000475 -WORD 475 ae ERROR 
6760 034344 002013 -WORD *FPPERR : ADDRESS OF ERROR MESSAGE 
6761 s INSTRUCTION SHOULD HAVE TRAPPED 
oa 034346 000167 000042 JMP 2st sREJOIN CODE 
6764 ; INSTRUCTION TRAPPED 
6765 034352 032737 000001 001042 50$: BIT #1, @90F LAG :SEE IF EXPECTING A TRAP 


6766 034360 001005 BNE 518 iBRANCH IF EXPECTING A TRAP 


L1O 









GLOBAL AREAS MACY11 30AC1052) 15-MAR-84 16:58 PAGE 128 SEQ 9128 
KDJ1L1A.MAC 15-MAR-84 15:51 T7106 EST LDEXP DOUBLE 
6767 034362 104000 ERROR sALL ERRORS TO TRAP TO EMT VECTOR 
6768 034364 000476 -WORD 476 sUNIQUE ERROR NUMBER 
6769 034366 002013 .WORD FPPERR sADORESS OF ERROR MESSAGE 
6770 , INSTRUCTION WASNT SUPPOSE TO TRAP 
6771 034370 000167 000020 JMP es sREJOIN CODE 
6772 034374 012604 S1$; MOV (SP)+,R4 ;SEE IF D's * INSTRUCTION 
6773 034376 005726 TST (SP )-+ a STACK 
6774 034400 022704 034324 CMP 01%,R4 
6775 034404 001403 BEQ es ;BRANCH IF GOOD COMPARE 
6776 034406 104000 ERROR sALL rg on” TRAP TO EMT VECTOR 
6777 024410 000477 -WORD 477 sUNIQUE ERROR NUMBER 
6778 034412 002013 -WORD FPPERR s ADDRESS OF ERROR MESSAGE 
thi ;PC WAS INCORRECT 
; 

6781 ;COMMON CODE FOR TRAP AND NO TRAP 
6782 ;VERIFY STATUS 
6783 034414 170203 2s: Ss RS sSAVE FPS 
6784 034416 012700 000200 #200 ,RO sSETUP FPS 
6785 034422 170100 RO sFPS*200 
6786 034424 174011 ACO,CR1) sGET RESULT 
6787 034426 016200 000024 24 CR2),RO sGET EXPECTED STATUS 
6788 034432 020003 RO,RS ; VERIFY STATUS 
6789 034434 001403 33 oe IF 
6790 034436 104000 ALL ERRORS TO TRAP TO EMT VECTOR 
6791 034440 500 | UNIQUE ERROR NUMBER 
6792 034442 002013 FPPERR sADDRESS OF ERROR MESSAGE 
6793 sBAD FPS 
6794 034444 010204 3$: R2,R4 sPOINT TO EXPECTED DATA 
6795 034446 062704 000012 #12,R4 
6796 034452 004767 145470 4$: R7 , DATVER ; VERIFY DATA 
6797 034456 005767 144356 COUNT 
6798 034462 001403 be sBRANCH IF GOOD 
6799 034464 104000 ;ALL ERRORS TO TRAP TO EMT VECTOR 

034466 000501 501 sUNIQUE ERROR NUMBER 
6801 034470 002013 FPPERR a OF ERROR MESSAGE 
6802 3;BAD 
6803 034472 005737 001042 S$: BOFLAG sSEE IF NEED TO CHECK FEC 
6604 034476 001002 73% sBRANCH IF NEED _ CHECK 
6605 034500 000162 000026 26(R2) }RE TURN FROM TEST 
6806 ; VERIFY 
6807 034504 012704 001106 78; ORECFEC ,R4 sPOINT TO FEC AREA 
66808 034510 170314 | sSAVE FEC 
6809 034512 1462 00°26 CR4),26CR2) sVERIFY FEC FOR OVERFLOW 
6810 034516 001403 8s sBRANCH IF 
6811 034520 i sALL ERRORS TO TRAP TO EMT VECTOR 
6612 034522 502 sUNIQUE ERROR 
68135 034524 002013 FPPERR sADDRESS OF ERROR MESSAGE 
6814 BAD FE 
cain 0345<6 000162 000030 8$: 30(R2) sRE TURN FROM TEST 

$ 

6817 034532 HOP 20; 
“,818 
6819 034532 MSCO: 
6820 5 5 9946946066606606066000606666066000600000060000F0SFSRREdREZALELAL,LE 
6821 s*TEST 107 TEST STCOI, STCOL 


6822 $F POOSSOSSEEEEEEESSSEASEHEAEEHASASEHESHHHHAEHRADAARAAARALARALALLd 


RDI IA. HAC IS HAR Ba fac8g - “MARS 907 cae ‘TEsr” S¥Eo te ’stcor 


144246 
001042 
000610 
000000 
177777 
001042 
000560 
177777 


001042 


001042 
000500 
177777 


177777 


157737 


001042 


TST107; 





MLO 





INC sTESTN s INCREMENT TEST NUMBER 
31/7ACO2#0, INT 
CLR BOF LAG sNO INTERRUPTS 
R7,SCOSUB :00 TEST 
0177,0,0,0 sACO 
0,-1 sRESULT 
7640 ; TEST FPS 
. WORD 7644 sRESULT FPS 
:2/ACO=-0, LONG 
CLR QOFLAG ; INTERRUPT 
JSR R7,SCOSUB 300 TEST 
. WORD 100177,-1,-1,-1 sACO 
-WORDB 0,0 sRESULT 
. WORD 7700 ; TEST FPS 
. WORD 7704 sRESULT FPS 
33/EXP=100, LONG 
CLR GOFLAG 3;NO INTERRUPT 
JSR R7,SCOSUB 300 TEST 
-WORD 20000,0,0,0 sACO 
. WORD 300 3; TEST FPS 
.WORD 304 s;RESULT FPS 
347EXP=200 BAISED 0, INT, ROUND 
CLR BOFLAG ; INTERRUPT 
JSR R7,SCOSUB ;D0 TEST 
. WORD 140177,177777,1.1 3ACO 
-WORD 0,0 sRESULT 
-WORD 7700 ; TEST FPS 
WORD 7704 sRESULT FPS 
35/7LONG 
CLR Q@OFLAG 3; INTERRUPT 
JSR R7,SCOSUB y00 TEST 
47667 , 75757 ,157737,16777 :ACO 
55675,173757 sRESULT 
7717 ; TEST FPS 
-WORD 7700 sRESULT FPS 
36/LONG, EXP=2e032 
CLR 3NO INTERRUPT 
:D0 TEST 
: 
1000.0 sRESULT 
7700 3; TEST FPS 
7700 sRESULT FPS 
»>20e32 
«SCO 300 TEST 
77607 ,0,0,0 ;ACO 
0,0 ;RESULT 





SEQ 0129 


AREAS 


GLOBAL 
KDJ11A.MAC 


035004 
035006 


035010 
935014 


MACY11 30AC 1052) 
15-MAR-84 15:51 


004767 


001042 
000336 
000000 


177777 


000001 
000304 
177777 
177777 


014000 


000220 
177777 
163741 


000002 
000166 
000000 


000134 
177777 


000000 


001042 
000104 
177777 


000000 


15-MAR -84 
T107 TEST STCOI, STCDL 


001042 
177777 


001042 


001042 


177777 


001042 


001042 
177777 


177777 


N1O 


16:58 PAGE 130 


.WOPD 7700 
-WORD 107705 
;8/INT, EXP=20015 


80F LAG 
JSR R7, SCOSUB 
.WORD 43200,0,0,0 


-WORD 10000, -1 


.WORD 7600 
.WORD 7600 
:9/INT, EXP>20015 
MOV 01, Q0FLAG 


JSR R7,SCOSUB 


. WORD 77777, -1,-1,-1 
. WORD 0,-1 
“WORD 7600 
-WORD 107605 
:107INT, EXP>2e015, FID 
MOV 00, BOF LAG 
JSR R7,SCDSUB 
-WORD 43300,0,0,0 
.WORD  0,14000 
WORD 47700 
"WORD 47700 
s11/INT, EXP>20015, FIC=0 
areas 
.WORD 143300, -1,-1,-1 


7300 





R7,SCOSUB 
-WORD 50100,0,0, 
-WORD 0,0 
. WORD “7 
- WORD 47705 
L1S/LONG, EXP» 20032, FIC=0 


JSR R7,SCDSUB 
.WORD 50577, -1,-1,-1 








100200, -1, 


-l, -1 


; TEST FPS 
sRESULT FPS 


sNO INTERRUPTS 
300 TEST 
3ACO 


RESULT 
; TEST FPS 
RESULT FPS 


3s INTERRUPT 
300 TEST 
;ACO 


sRESULT 
; TEST FPS 
sRESULT FPS 
;NO INTERRUPT 


300 TEST 
;ACO 


;sRESULT 
; TEST FPS 
sRESULT FPS 
sNO INTERRUPT 


300 TEST 
3ACO 


sRESULT 
3; TEST FPS 
sRESULT FPS 


; INTERRUPT 
3:00 TEST 
3ACO 


3NO INTERRUPT 
300 TEST 
;ACO 


sRESULT 
3; TEST FPS 
TRESULT FRS 
sNO INTERRUPTS 
300 TEST 
3ACO 


;RESULT 


SEQ 0130 


~_ 


GLOBAL AREAS 
KDJLLA.MAC 


MACY11 S3O0A( 1052) 
15-MAR-84 15:51 


001042 
177777 
177777 


001042 
000024 
177777 


177777 


000244 


000001 001042 


15-Mar-64 
T1lu7 


177777 


177777 


000244 


Ld & & 


16:58 PAGE 
TEST STcDl. ‘STCOL 
.WORD 7757 
. WORD 7744 
si=/INT, EXxP<0 
CLR BOF LAG 
JSR R7,SCOSUB 
» WORD 37700,-1,-1,-2 
-WORD O,-1 
-WORD 7600 
-WORD 7604 
316/7INT, EXP*10 
CLR BOFL AG 
JSR R7,SCOSUB 
. 4377,-1,-1, 1 
. WORD 0.-1 
-WORD 7600 
-WORD 7604 


s TEST FPS 
sRESULT FPS 


sNO INTERRUPTS 
300 TEST 
3ACO 


sRESULT 
+ TEST FPS 
sRESULT FPS 


sNO INTERRUPTS 
300 TEST 
3ACO 

sRESULT 

s TEST FPS 

sRESULT FPS 


sGET OVER SUBROUTINE 


JMP 
p eNeNeNeNeNeNeNeKeXeKoKenexexenokenoneXexeXonen Ke hexexexon 
geXeXeXeXeXaXeXeXeXeXeXeXeXaxXeXeXeXeXeXeXeXeXeXeXeXeXeKeXex 
sSTCOI, STCOL, STCFI, STCFL 


RESULT 
FPS BEFORE EXECUTION 
“ee 


sTRAP ON CONVERSION FAILURE 
s @XeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeKeXeXeXeXeXexeX 
i ea i a a ah eae 


SCOSUB: MOV 


: 
403: 
18: 


$3338 


LOFPS 
LOO 
MOV 
LOFPS 
STCOI 


g 


STST 
. WORD 





1TNSTRUCT ION DIONT TRAP 


BEG 
ERROR 


zo 


s RETURN ADDRESS TO USE AS POINTER 
sREDIRECT TRAP VECTOR 

sPOINT TO RESULT AREA 

sPRELOAD RECEIVE DATA BUFFER 


3 
3SET FPS TO DOUBLE 


2 
sPOINT TO ACO DATA 
sLOAD ACO 
sGET TEST FPS 
sLOAD TEST FPS 


seTEST INSTRUCTIONC ACCORDING TO MODE > 
sWAIT FOR POSSIBLE FPA TRAP. 
sSTORE STATUS HERE, 


;VERIFY A NO TRAP CONDITION 
:BRANCH IF GOOD 
2ALL ERRORS TO TRAP TO EMT VECTOR 


ROSE TALARESS SARA hg SPBCSP52?  1S-MARSO4, 16:58. PAGED E32. 160 


035510 
035512 


035514 


035562 

5566 
03557¢ 
035574 


000503 
002013 


000167 


000001 


000020 


035424 


000016 


000020 


001042 


. WORD 503 
. WORD FPPERR 
JMP 2s 
; INSTRUCTION TRAPPED 
50$; BIT 01,80FLAG 
BNE 518 
ERROR 
. WORD 504 
. WORD FPPERR 
JMP 2s 
518; MOV (SP )+,R4 
TST (SP )-+ 
CMP @1%,R4 
BEQ es 
ERROR 
. WORD 505 
. WORD FPPERR 
i 
3C CODE FOR TRAP AND NO TRAP 
;VERIFY STATUS 
2s: STFPS R3 
MOV 16(R2),RO 
CMP RO,RS 
BEQ 33% 
ERROR 
-WORD 506 
-WORD FPPERR 
38: MOV R2,R4 
ADD #10,R4 
4$: JSR R7 DATVFR 
TST COUNT 
BEQ 58 
ERROR 
-WORD 507 
-WORD FPPERR 
58: TST BOF LAG 
BNE 78 
JMP 20(R2) 
;VERIFY FEC 
78%: Vv @RECFEC ,R4 
STs? (R44) 
CMP (R44), 06 
BEQ 
ERROR 
. WORD 510 
. WORD FPPERR 
8%: JMP 20(R2) 


sUNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 


sINSTRUCTION SHOULD HAVE TRAPPED 
;REJOIN CODE 


sSEE IF EXPECTING A TRAP 
sBRANCH IF EXPECTING A TRAP 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
S OF ERROR MESSAGE 


s ADDRESS 
s INSTRUCTION WASNT SUPPOSE TO TRAP 
sREJOI 


NC 
1SEE IF PC » {INSTRUCTION 
— UP STACK 


{BRANCH I F GOOD COMPARE 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 
INCORRECT 


3SAVE FPS 

sGET EXPECTED STATUS 
3; VERIFY STATUS 
Se ene F GOOD 
L ERRORS TO TRAP TO EMT VECTOR 
ONTQUE ERROR NUMBER 
sADDRESS OF ERROR MESSAGE 


PS 
sPOINT TO EXPECTED DATA 


3 VERIFY DATA 


sBRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sSEE IF NEED TO CHECK FEC 
sBRANCH IF NEED TO CHECK 
sRETURN FROM TEST 

sPOINT TO FEC AREA 

sSAVE FEC 


S VERIFY rec FOR OVERFLOW 
sSRANCH IF GOOD 

2sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

2ADDRESS OF ERROR MESSAGE 





:BAD ACO 





3BAD FEC 
;RE TURN FROM TEST 


SEQ 9132 


RST TA 


AREAS 


~MAC 


035622 


335770 


035770 
035770 


035774 


001042 
177470 
177777 


177777 


000001 
177436 
177777 


000000 


001042 
177406 
000000 


177777 


143010 


000154 
000000 


177777 


177777 


001042 


177777 


177777 


Ait 


1S "AAR Ba “PS SPPe? TS MARGEG, 16: 9B. PARED E35 10m 


MSCF ; 


SESHSHSHEHAHEADEASESEEHAEEEHOAEEEASEEEEEEEEEEEEEHEEEEEEEREAOEEHEEEEEDS 


s*TEST 110 


TEST STCFI, STCFL 


3 § SOMOS EAEEEEEEREEOEREREEEAERERERESOEEEEEEEEEEAEREREOEEEERAORESES 


TST110: 
INC 
:1/LONG EXP «30 
CLR OOF LAG 
JSR R7,SCOSUB 


sTESTN 








“3 


s INCREMENT TEST NUMBER 


sNO INTERRUPTS 
300 TEST 
sACO 


sRESULT 
3 TEST FPS 
sRESULT FPS 


sNO INTERRUPTS 
300 TEST 
3ACO 

sRESULT 

3; TEST FPS 

sRESULT FPS 
s INTERRUPT 
300 TEST 
sACO 

sRESULT 

3s TEST FPS 

sRESULT FPS 

3NO INTERRUPTS 
300 TEST 
2ACO 

sRESULT 

3 TEST FPS 

sRESULT FPS 


§ £988 S66 08664666866600060660000806086800660080660006000000000006000000008 


8 8 OOO O8886 80806066 466006608406668660806606 66060000000060600060000000000000 


~WORD 44541,52525, -1, 
~WORD 3,102525 
-WORD 7517 
-WORD 7500 
s27INT, EXP<O 
CLR BOF LAG 
JSR R7,SCOSUB 
. WORD 2300,-1,-1.-1 
-WORD 0O,-1 
-WORD 7400 
-WORD 7404 
sS/LONG, EXP>>2ee32 
MOV 01, Q0F LAG 
JSR R7,SCOSUB 
. WORD 70000, -1,-1,-1 
-WORD 0,0 
. WORD 
-WORD 107545 
34/INT ,ExPs5, FIC*o, FID-1 
CLR SOF LAG 
R7,SCOSUB 
52000,0, -1, “1 
0,-1 
47000 
47005 
é 
MSXP ; 
s@TEST i111 TEST STEXP 
TSTLLIL: 
sTESTN 
3 1/EXP=100 
JSR R7 , SXPSUB 
»WORD 20000,0,0,0 
-WORD -100 
-WORD 7740 
WORD 


. 7750 
327EXP=201 FLOAT, NEG 


2 INCREMENT TEST NUMBER 
300 TEST 

3ACO 
sRESULT 

3 TEST FPS 
sRESULT FPS 


SEG 


O153 


GLOBAL 


KDJLIA, 


AREAS 
MAC 


172414 


000132 
177777 


000110 
177777 


000022 
177777 


000120 


177777 


177777 


177777 


177777 


MACY11 30AC1052) 15-MAR-84 16:38 PAGE 454 
15-MAR-84 15:51 T111 EST STEX 


JSR R7,SXPSUB :00 TEST 
. WORD 140377,-1,-1,0 ;ACO 
. WORD 1 ULT 
. WORD 7500 s TEST FPS 
. WORD 7500 sRESULT FPS 
3; 3/EXP2-177 
JSR R7,SXPSUB 300 TEST 
. WORD 177,-1,-1,-1 sACO 
. WORD 177600 sRESULT 
. WORD 7700 ; TEST FPS 
. WORD 7710 sRESULT FPS 
3;4/EXP=-100 
JSR R7,SXPSUB 300 TEST 
-WORD 20000,0,-1,-1 sACO 
-WORD -100 sRESULT 
-WORD 40200 ; TEST FPS 
-WORD 40210 sRESULT FPS 
35/EXP=200 
JSR R7,SXPSUB 300 TEST 
-WORD 40000,0,0,0 sACO 
-WORDB O sRESULT 
. WORD 7700 3 TEST FPS 
-WORD 7704 sRESULT FPS 
367EXP «0 
JSR R7,SXPSUB 300 TEST 
-WORD 177,-1,-1,-1 ;ACO 
. WORD 177600 sRESULT 
-WORD O 3 TEST FPS 
-WORDB 10 sRESULT FPS 


HOP 22 sGET OVER SUBROUTINE 
3 oXeXeXeXaXeXeXeXeXeXeXeXeXeXeXaKeXeXeXeXexeXeXeXeXeXeXeXex 
SE ee eae ak oNeReenaReR eK oNeKen 
3S 
: Aco 
EXPONENT RESULT 
FPS BEFORE EXECUTION 
FPS AFTER EXECUTION 
$ 
sNO TRAPS CAN OCCUR 
3 oXeXeXeKeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXeXaXeXeXaXeXeXeXxeXeX 
3 *XeXeXeXeXeXeXeXeXeXaXeaXeXeXeXaXeXeXaXeXeXeXeXaXeXaXexeXeX 





i 
SXPSUB: MOV (SP )+,R2 3 RETURN ADDRESS TO USE AS POINTER 

MOV 050% , BOF PVEC sREOIRECT TRAP VECTOR 

MOV @RECDST Ri sPOINT TO RESULT AREA 

4 ae #200 ,RO sSET FPS TO DOUBLE 

: 
MOV R2,R4 :POINT TO ACO DATA 
LOD (R4),ACO sLOAD ACO 


GLOBAL 


AREAS 


KDJ11A.MAC 


036202 
036206 


036210 


MACY11 S0AC 3952) 1 
15-MAR-84 15:51 


000012 


000014 


000010 


001126 


000016 


177756 


-MAR - 84 : pp 
Sano 6B PE 
MOV 12(R2),RO 
LOFPS RO 
40$:  STEXP ACO.(R1) 
;VERIFY STATUS 
2$: STFPS RB 
MOV 14(R2),RO 
CMP RO.R3 
BEQ 3$ 
ERROR 
‘WORD 511 
"WORD FPPERR 
33: MOV 10(R2),R4 
CMP R4, BORECDST 
BEQ S$ 
ERROR 
.WORD 512 
‘WORD FPPERR 
5: UMP 16(R2) 
INSTRUCTION TRAPPED 
508: MOV CSP)+,RO 
MOV » RS 
ERROR 
-WORD 513 
“WORD FPPERR 
MP 53 


HOP 22: 


sBAD FP 


sGET TEST FPS 
sLOAD TEST FPS 


s#TEST INSTRUCTIONC ACCORDING 10 MODE) 


sSAVE FPS 
sGET EXPECTED STATUS 
s VERIFY STATUS 
sBRANCH IF GOOD 
sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 
— OF ERROR MESSAGE 


> POINT TO EEC TED EXPONENT 
; VERIFY ONENT 

sBRANCH IF GOOD 

sALL ERRORS TO TRAP TO EMT VECTOR 
sUNIQUE ERROR NUMBER 

sADDRESS OF ERROR MESSAGE 


sBAD ACO 


3s ADDRES 
sWILO TRAP _OURING STE 


sRETURN FROM TEST 


sSAVE PC 
_— OLD PS 
ALL ERRORS TO TRAP TO EMT VECTOR 
S UNIQUE ERROR NUMBER 
ss OF — MESSAGE 


JOIN CODE 


SEQ 9135 


Nee cde che 


GLOBAL AREAS MACY11 30A(1052) 15-MAR-84 16:58 PACE 136 SEQ 0136 
KDJ1L1A.MAC 15-MAR -84 15:51 T1il1 TEST STEXP 
7195 -MCALL IOMSG,ENDPAS 
ones .SBTTL END OF PASS ROUTINE 
7197 
7198 FF MMMORAOREEAEASEAESERADEDORODAEREAEAAADAEEEEEEEEEAEEAEALEREEEDDS 
7199 ;*INCREMENT THE PASS NUMBER ($PASS) 
7200 ;*INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
7201 ;#IF THERES A MONITOR GO TO IT 
7208 ;*IF THERE ISN'T JUMP TO RESTART 
7204 036274 sEOP; 
7205 036274 005767 142506 TST $PASS sONLY TYPE MESSAGE AT END OF FIRST PASS 
7206 036300 001002 BNE SKIPID sIF >0 THEN SKIP THE ID MESSAGE 
7207 036302 104401 036402 TYPE »MSG1 sELSE TYPE THE ID MESSAGE 
7208 036306 SKIPID: 
7209 036306 005267 142474 INC sPASS 3s INCREMENT THE PASS NUMBER 
7210 036312 042767 100000 142466 src #100000, $PASS 3s300N'T ALLOW A NEG. NUMBER 
7211 036320 005327 DEC CPC)>+ 3 sLOOP? 
7212 036322 000001 SEOPCT: .WORD 1 
7213 036324 003022 BGT $DOAGN 33 YES 
7214 036326 012737 MOV CPC)+, OC PC)> +sRESTORE COUNTER 
7215 036330 000001 SENDCT: .WORD 1 
7216 036332 036322 sEOPCT 
7217 036334 104401 036456 TYPE »"SG2 
7218 036340 016746 142442 MOV SPASS, -( SP) 33SAVE 8PASS FOR TYPEOUT 
7219 036344 104405 TYPOS ::GO TYPE--DECIMAL ASCII WITH SIGN 
7220 036346 104401 036376 TYPE » SENULL 
7221 036352 013700 000042 SGET42: MOV 8042 ,RO :3:GET MONITOR ADDRESS 
7222 036356 001405 BEQ $D0AGN 33BRANCH IF NO MONITOR 
7223 036360 000005 RESET 3;CLEAR THE WORLD 
7224 036362 004710 SENDAD: JSR PC,.CRO) 3:GO TO MONITOR 
7225 036364 000240 NOP 33 ROOM 
7226 036366 000240 NOP 33FOR 
7227 036370 000240 NOP s3ACTLi 
7228 036372 SDOAGN: 
7229 036372 000137 JMP aPC >> 3 sRETURN 
7230 036374 002410 SRTNAD: .WORD RESTART 
4 036376 . 377 377 OOO SENMAL: .BYTE -1,-1,0 s3sNULL CHARACTER STRING 


-EVEN 
7233 036402 005015 055103 042113 MSGi: -ASCIZ <CR><LF>/C2KOL -B-O KDJ1L1 FLOATING POINT DIAGNOSTIC/ 


7236 046106 040517 
7237 036432 043516 044517 
7238 036440 052116 040511 


7241 036456 005015 055103 042113 MSG2: -ASCIZ <CR><LF>/CZKDLB END PASS @/ 


-EVEN 
7246 -SBTTL TYPE ROUTINE 


7248 Tit ttt hehehe ee ererrLiLi rit i iii ii tii ti titititittitttititt tit tT tT 
7249 s*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
7250 ;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


GLOBAL 
KDJLIA, 


mae 


5 Min ds SOAC 3052 ) 1S MAR 02. ABET oye PAGE 157 


105767 


112716 


000343 


000011 


142270 
142261 


142237 


;*NOTEL: 
; *NOTE2;: 
— 


CALL 


2s: 


53: 
6%: 


78; 


sHORTZONTAL TAB 





TYPE 
ME SADR 


TSTB 
BPL 
HALT 
BR 
MOV 
MOV 
CMPB 


BNE 
BITS 


PEDEEE Et 





$3893 






et: 
32% 


BRuPs 2895 


MOVB 


$NULL yo ed THE CHARACTER "9 BE USED AS THE FILLER CHARACTER. 


SFILLS CONTA 


FILLER as) Md REQUIRED. 


S THE NUMBER OF 
sFILLC CONTAINS THE CHARACTER TO FILL AF 


:e1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


$TPFLG 

is 

38 

RO, -(SP) 
82(SP),RO 
OAPTENV, SENV 
62% 
@APTSPOOL , SENVM 
62% 


RO,618 
PC, SATYS 


@APTCSUP , SENVM 
60% 

CRO)+,-( SP) 
43 

(SP )> 

(SP )+,RO 
@2,(SP) 
ont .C SP) 
OCRLF CSP) 
53 

CSP)» 
SCHARCNT 

2% 

PC, STYPEC 

A orcas hase 
SNULL , -(5P) 
1( SP) 

6% 

PC, sTYPEC 
SCHARCNT 


ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


31S a Fig TERMINAL ? 

33 

+sHALT HERE IF NO TERMINAL 

‘3 

i 

+sGET ADDRESS p ASCIZ STRING 
T MODE 


+ sSRUNNING IN 
CHECK ron APT CONSOLE 
TO APT 


Ss 
CONSOLE SUPPRESSED 
TER TO BE TYPED ONTO STACK 
INATOR 


33PUSH CHARAC 
BR IF IT ISN’ T THE TERMINA 
TERMINATOR POP IT OFF THE STACK 


URN 
ssBRANCH IF <HT> 
::BRANCH IF NOT <CRLF> 


s3P0P <CR><LF> EQuiv 
33 TYPE A CR AND LF 





:3;00ES A NULL NEED TO BE TYPED? 
238R IF NO--GO POP THE NAL OFF OF STAaCx 
3:G0 TYPE A NULL 


s:;REPLACE TAB WITH SPACE 


SEQ 0157 


AREAS 


GLOBAL 
KDJ11A, MAC 


000014 
000007 000124 





9%: JSR 


STYPEC: 


1018; 


ASCI 
-ASCIZ 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


3 3 98S 2066886 os Se Gees Th Caner A an ot Eten coo ae ateeee 


1S" AAA be PBSRP9?? 1S MARGEBE ABS Ne PAGE 158 


PC, $TYPEC 
gee EN 
$ 


(SP )-+ 
es 


<l2> 


s*THIS ROUTINE IS USED 1 


3*SIGNED DECIMAL BS. 


*CALL;: 
id MOV 


ss TYPE A SPACE 
;;B8RANCH IF NOT AT 

+3 TAB STOP 

3sPOP SPACE OFF STACK 
+:3GET NEXT CHARACTER 


CHAR IN KYBD BUFFER? 
BR IF oi 


STRIP EXTRANEOUS BITS 
WAS CHAR XOFF 
BR IF NOT 


3;WAIT FOR CHAR 


3;GET CHAR 
s3STRIP IT 
33WAS IT XON? 
:38R IF NOT 


ssF IX STACK 
3sWAIT UNTIL PRINTER IS READY 


33LOAD CHAR TO BE TYPED INTO DATA REG. 
33IS CHARACTER A CARRIAGE RETURN? 
:;GRANCH IF NO 
hl aaa CHARACTER COUNT 
8 
ss08 CHARACTER A LINE FEED? 

ee vYES 


: }COUNT ME CHARACTER 
+O EMARACTER COUNT STORAGE 






oaey KDB STATUS 740001 
sTTy SUFFER 


Y KBD 3MJ0001 
petty PRINTER STATUS REG. ADDRESS 
ssTTY PRINTER BUFFER ADORE 


AFTER A “LINE FEED~ 
a8 TERMINAL AVAILABLE” FLAG (BIT<07>=0-YES) 
: ;SQUESTION MARK 
a sLINEFEED 


A i6-Ort BINARY NUMBER TO A 5S-DIGIT 
It : ee ON WHETHER THE 


t% 
83 
3:GET CHAR sMJD001 
3 
ti 
s3 


SEQ 9158 


GLOBAL 


AREAS 


KDJ1L1A.MAC 


7363 
364 


037056 


037270 


MACY11 30A( 1052) 
15-MAR-84 15:51 


020200 
000020 


000055 
037272 
000040 


037262 


000010 


177777 


037272 
000002 


900001 


177777 


177776 


ial A he 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


15-MAR-84 16:58 PAGE 139 





3% TYPOS 13GO TO THE ROUTINE 
sTYPDS: 
RO, -( SP) +sPUSH RO ON STACK 
R1,-CSP) +3sPUSH R1 OW STACK 
R2,-CSP) +sPUSH R2 ON STACK 
R3,-CSP) 33PUSH R3 ON STACK 
RS, -C(SP) 33;PUSH RS ON STA 
#20200, - (SP) 33SE 
20(SP),R5S +3;GET THE INPUT 
i$ ;;8R 
5 + sMAKE 
@'-,1¢0SP) ssMAKE T 
1$;: ¢) ‘8 
@$DBLK ,R3 4 
@’' ,CR3)>+ 33 
2s: ‘3 HE 
sDOTBLCRO),R1L 33GET THE CONSTANT 
38: + Sie pe gg BS BCD DIGIT 
8 
Hr} ss INCREASE THE SCD DIGIT BY 1 
4%: R1,R5S 33ADD BACK THE CONSTANT 
Re 3;CHECK IF BCD - ae an 
53 FALL THROUGH IF 
(SP) s3STILe — LEADING 0’S? 
78 336R IF Y 
S$: er? 334S0? 
SP ay 33 YES--SET 
63: 0,R2 
78: 
R2,(R3)> ;3PUT THI 
CRO)> a3 T 
tage 3 sCHECK 
83 3360 TO EXIT 
> fig 33GET THE L 
88: 
BPL 98 338R 
MOv8 -1¢SP), -2(R3) 1 1YES--SET TME SIGN FOR TYPING 
9: CLRB CR3) 33SET THE TERMINATOR 
MOV (SP )+.R5 33P0P STACK INTO RS 
MOV (SP)+,R3 23 
MOV (SP)+,R2 33P0P STACK INTO Re 
MOV (SP )+,R1i 23:P0P STACK INTO Ri 
MOV CSP )+,RO 33:P0P STACK 
TYPE » S0BLK s3NOW TYPE TME 
MOV 2CSP),4(SP) ssADJUST THE STACK 
MOV CSP)+, (SP) 
RTI 2; ;RETURN TO USER 
sOTBL: 10000. 
1000, 
100, 


ee 
” 


CK 
T BLANK oy ee AND SIGN 
NUMBER 
IF INPUT IS POS. 
THE BINAR 


3 sMAKE 
° »R2 MAKE IT A SPACE IF NOT ALREADY A DIGIT 
S CHARACTER IN THE OUTPUT BUFFER 





THE TABLE INDEX 
3:G0 00 THE NEXT DIGIT 


$ 33G0 CHANGE TO ASCII 
CSP)» 33WAS THE LSD THE FIRST NON-ZERO? 


SEQ 9139 


GLOBAL 


KDJLIA. 


AREAS 


MAC 


MACY11 S08( 3052 D 15 -MAR - 
15-MAR-84 15:51 


037272 000004 


000006 
000132 
000125 
000012 


000076 
177770 


000211 


000171 
000165 
000154 


INL 
CONVERT BINART TO DECIMAL AND TYPE ROUTINE 


SOBLK: .BLKW 4 
~SBTTL BINARY TO OCTAL CASCII) AND TYPE 


ToL tbh hhh bobbi bhbiktdt LLLLLLLLLELLLE LTTE TTT TTT TTT eT Ter 

:@THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
s*OCTAL CASCII) NUMBER AND TYPE IT. 

eSTYPOS-- -ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


:@CALL: 

fa V NUM, -( SP) i sNUMBER TO BE TYPED 

3% TYPOS +:;CALL FOR TYPEOQUT 

74 BYTE N ssN=1 TO 6 FOR NUMBER OF DIGITS TO TrPE 
7% BYTE M 33M=1 OR O 

:8 331*TYPE LEADING ZEROS 

34 3s0*SUPPRESS LEADING ZEROS 

;* 


;*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
orgy OR $TYPOC 
3% : 


34 MOV NUM, -( SP) ssNUMBER TO BE TYPED 
- TYPON 3;CALL FOR TYPEOUT 
ean HERE FOR TYPEOUT OF A 16 BIT NUMBER 
34 
74 MOV NUM, -C SP) ssNUMBER TO BE TYPED 
3% TYPOC +;CALL FOR TYPEOUT 
sTYPOS: MOV ac SP), -CSP) s3PICKUP THE 
MOVB 1CSP), SOF ILL ssLOAD ZERO FILL SWITCH 
MOVB CSP)+,8O0MODE+1 ;;NUMBER OF DIGITS TO TYPE 
ADD #2. (SP) ;sADJUST RETURN ADDRESS 
sTYPOC: MOVB #1, SOF IU 33SET THE ZERO FILL SWITCH 
MOVB 06, SOMODE +1 ss FOR SIX(6) DIGITS 
STYPON: MOVB @5, 8SOCNT T THE ITERATION COUNT 
MOV R3,-CSP) ; 1 SAVE RS 
MOV R4, -CSP) 2 3 SAVE RG 
MOV RS, -CSP) 33:SAVE RS 
MOVE a ai ot 33GET THE NUMBER OF DIGITS TO TYPE 
ADD 06 ,R4 ::SUBTRACT IT FOR MAX. ALLOWED 
MOvVB R4 , SOMODE :3SAVE IT FOR USE 
MOVB SOF ILL ,R4 33GET THE ZERO FILL SWITCH 
MOV 12¢SP),RS ssPICKUP THE 
CLR R3 3;CLEAR THE OUTPUT 
1%; ROL RS ; ROTATE MSB INTO “C” 
BR 3% 3:G0 DO mSB 
23: ROL RS 33FORM THIS DIGIT 
ROL RS 
ROL R5 
MOV R5,R3 
3$;: ROL R3 3:3GET LSR OF rts DIGIT 
DECS sOMODE 33 TYPE THIS DIGIT 
BPL 7% 33;38R IF NO 
BIC 9177770,R3 :3:GET RID OF JUNK 
BNE as 2:3 TEST FOR O 
TST Ra 3:SUPPRESS THIS 0? 


SEQ 9140 


AL AREAS 


GLOB 
KDJLIA. 


MAC 


037442 
037444 


bd de 


BR IF YES 
DON'T SUP 
MAKE THIS DIGIT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 

GO TYPE THIS DIGIT 

COUNT BY 1 


IF MORE TO DO 

IF DONE 
SURE LAST DIGIT ISN’T A BLANK 
DO THE LAST DIGIT 

TORE R5 


PRESS ANYMORE 0'S 


3 sRETURN 

1 sSTORAGE FOR ASCII DIGIT 

+ s TERMINATOR FOR TYPE ROUTINE 
ssO0CTAL DIGIT COUNTER 

3sZERO FILL SWITCH 

ssNUMBER OF DIGITS TO TYPE 


“TRAP” INSTRUCTION 
TABLE FOR THE STARTING ADDRESS 


TRAP 
TINE. THEN USING THE ADORESS OBTAINED IT WILL 


33G0 TO ROUTINE 


:3sMOVE THE PC DOWN 
:3MOVE THE PSW DOWN 
s;RESTORE THE PSw 


.8,4SG 
A,B, \<TRAP+STRP>, \STRP, <MSG> 


Macy 11 ,50R(2052) 15-MAR-84 16:58 PAGE 141 
15-MAR-84 15:51 BINARY 10 OCTAL (ASCII) AND TYPE 
001403 BEQ S$ 
00 4%: INC R4 
052703 000060 BIS ®'0,R3 
052703 000040 S$: BIS o' ‘RB 
110367 0 MOVE RB, 8S 
104401 037522 TYPE 83 
105367 32 7$; DECB = $OCNT 
003347 BGT 23 
002402 BLT 63 
INC R4 
000744 BR 2% 
012605 63: MOV (SP)+,RS 
012603 MOV (SP)+.R3 
016666 000002 000004 MOV 2(SP),4(SP) 
012616 MOV (SP)+,(SP) 
000002 RTI 
000 8s: BYTE 0 
000 ‘BYTE 0 
000 SOCNT: .BYTE 0 
000 SOFILL: .BYTE 0 
000000 $OMODE: .WORD 0 
.SBTTL TRAP DECODER 
:@THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE 
;@AND USE IT TO INDEX T 
3¢0F THE DESIRED ROU 
:*GO TO THAT ROUTINE. 
010046 STRAP: MOV RO, -(SP) 
016600 000002 MOV 2¢SP), 
005740 TST -CRO) 
111000 MOVB = (RO),RO 
300 ASL 
016000 037564 MOV $TRPADCRO),RO 
RTS RO 
3:THIS IS USE TO HANDLE THE “GETPRI” MACRO 
011646 $TRAP2: MOV (SP), -(SP) 
016666 000004 000002 ~ 4(SP),2¢ 
.MACRO SETTRAP A 
$$SET 
STRP=$TRP oi 
LIST 
-ENDM SETTRAP 


-MACRO $$SET 
-IF EQ $TRP-1 


A,B,C ,0,COMNT 


-SBTTL TRAP TABLE 
s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


SEQ 9141 


anes 


006200 
010067 
012767 


000001 
000001 


141104 
141112 


141102 
141076 
000004 


SARA MA SPEAR?) 15-8 


000236 
000226 


000220 


141154 
141145 


000004 


141052 


ML dk 

. . Pp 
TRAP bP édBeR mae 68 
:@BY THE “TRAP” INSTRUCTION. 
ROUTINE 
STRPAD: . WORD $TRAP2 
.ENDC 
LIF mar Se. ST 

B +;CALL=A 
.ENOM $$SET 
-MACRO TRMTRP 
$TERM=.-$TRPAD 
.ENDM TRMTRP 
.SBTTL TRAP TABLE 


s;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
3@BY THE “TRAP” INSTRUCTION, 


TRAP +D(C) COMNT 


THE ROUTINES CALLED 


TRPAD: .WORD 
TRAP +1(€104401) TTY TYPEOQUT ROUTINE 

T > TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 


TRAP +4( 104404 ) 


+ CALL =TYPDS TRAP +S( 104405 ) 


-SBTTL APT COMMUNICATIONS ROUTINE 


3 § 298600088066 646868468600066066664666606606666666068666064666606660666 
AL ERROR 


SATY1L: 3310 REPORT FAT 
SATYS: 33TO TYPE A MESSAGE 
SATY4: 33TO ONLY REPORT FATAL ERROR 
$ATYC: 
:3PUSH RO ON STACK 
33PUSH R1 ON STACK 
13%: 
2s: 





RO, $MSGLGT 


L 
04 , SMSGTYPE ss TELL APT TO TAKE MSG. 


SEQ 9142 


Nit 


GLOBAL AREAS —MACY11 30A(1052) 15-MAR- aB4 46:58. PAGE 143 ‘s 
KDJL1A.MAC 15-MAR-84 15:51 T COMMUNICATIONS ROUTINE SEQ 0145 

7587 037726 000413 BR S$ 

7588 037730 017667 000004 000016 33: MOV G4(SP),4$ + sPUT NSC ADDR IN JSR LINKAGE 

7589 037736 062766 000002 000004 ADD #2,4(SP) ;BUMP RETURN ADDRESS 

7590 037744 016746 140026 MOV 177776, -(SP) +1PUSH 177776 ON STACK 

7591 037750 004767 176526 JSR PC, $TYPE ;:;CALL TYPE MACRO 

7592 037754 000000 4$ .WORD 0 

7593 037756 S$: 

7594 037756 105767 000062 10$: TSTB = SFFLG SHOULD REPORT FATAL ERROR? 








3 
7595 037762 001416 BEQ 12$ s3IF NOT; 6R 
7596 037764 005767 141030 TST $ENV + sRUNNING UNDER APT? 
7597 037770 001413 BEQ 12s 3:IF NOT: BR 
7598 037772 005767 141002 11%: TST $MSGTYPE 33F INISHED LAST MESSAGE? 
7599 037776 001375 BNE 11$ s3IF NOT: WAIT 
7600 040000 017667 000004 140774 | MOV O4(SP), $FATAL 33;GET ERROR 6 
7601 040006 062766 000004 - ADD 2,4(SP) ADOR. 
7602 040014 005267 140760 INC $ TYPE ;;TELL APT TO TAKE ERROR 
7603 040020 105067 12%: CLRB $FFLG +;CLEAR F 
7604 040024 105067 000013 CLRB $LFLG 3;CLEAR LOG FL 
7605 040030 105067 CLRB $MFLG +3 MESSAGE FLAG 
7606 040034 012601 MOV CSP)+,R1 s3POP STACK INTO Ri 
7607 040036 012600 MOV CSP)+,RO ; POP STACK INTO RO 
7608 040040 7 RTS ; sRETURN 
7609 040042 000 SMFLG: .BYTE 0O 3 :MESSG. FLAG 
7610 040043 000 SLFLG: .BYTE 0O 33L0G FLAG 
7611 040044 000 SFFLG: .BYTE 0 ssFATAL FLAG 
7612 040046 
7613 000200 APTSIZE=200 
7614 APTENV=001 
7615 000100 APTSPOOL =100 
7616 re) APTCSUP =040 
7617 8 3 9O0000000008060004640004660600046600000606060660600000606006000600046666 
7618 sTHIS ROUTINE WILL T THE ERROR COUNT AND THEN PASS THE UNIQUE 
bay sERROR NUMBER TO THE APT ERROR ROUTINE TO BE REPORTED TO THE APT SYSTEM. 
7621 040046 005267 141000 SERROR: INC s INCREMENT ERROR FLAG 
7622 040052 001775 BEQ 1D0N" T LET IT GO TO ZERO 
7623 040054 005267 140764 INC THE ERROR COUNT 
7624 040060 021627 CMP #1002 :Is ERROR FROM VECTOR AREA 
7625 040064 101010 BHI 3IF YES THEN 
7626 040066 012767 007777 000106 MOV 3$ sREPORT AN UNEXPECTED TRAP 
7627 040074 012637 001062 MOV (SP). @OSAVSPI sSAVE UNEXPECTED TRAP DATA 
7628 040100 012637 001064 MOV CSP)+, @@SAVSP2 sAND RESTORE SP 
7629 040104 000430 BR 2$ sELSE 
7630 040106 017667 000000 000066 i1%: MOV aCsP), 33 sREPORT UNIQUE ERROR NUMBER ‘70 APT 
7631 040114 011667 000072 MOV CSP),101$% :SAVE ERROR 
7632 040120 062716 000002 ADD . SP) :GET OVER UNIQUE ERROR NUMBER FOR RETURN 
7633 040124 017637 000000 040134 100%: MOV ac SP),.8@¢102$ 
7634 040132 104401 TYPE ; TYPE ERROR MESSAGE 
7635 040134 000000 102$: -WORD O 
7636 040136 062716 ADD @2.(SP) :GET OVER ERROR MESSAGE 
7637 040142 104401 002046 TYPE »ERR1 : 
7 040146 016746 000030 MOV 3$,-CSP) sPUSH UNIQUE ERROR NUMBER ON THE STACK 
7639 040152 1044 TYPOC ; TYPE OCTAL ERROR NUMBER 
7640 040154 104401 002062 TYPE »ERR2] : 
7641 040160 016746 000026 MOV 101%, -CSP) ;PUSH ERROR PC ON THE STACK 
7642 040164 104402 TYPOC TYPE THE ERROR PC 


GLOBAL 
KDJLLIA.M 


m_. 


1S MAR da ae go>e? 15- ran 8 c 6: 


122767 000001 


001004 
004767 
000000 


000777 
000000 
000002 
000000 


000001 


177414 


140624 23: 


58 PAGE 
ICAT 


 &. C.. 


Fone ‘R ROUT INE 
Sar Tew . SERV 
PC. tATY4 
0 
4$ 
0 
10 


1 CHECK "g MAKE SURE WE'RE IN APT MODE 
sIF YES THEN 

1GO REPORT ERROR TO APT 

sSTORAGE FOR ERROR NUMBER 

sLOOP HERE AFTER REPORTING ERROR TO APT 
sIF NOT APT THEN HALT 

sALLOW RECOVERY FROM HALT 


SEQ 9144 


ww 4+. C.. 


& ARE AS MAC Y 50 2) 5. MAR. rs 
KOULIA.MAC” 15 HAR Ag POLSP5e? 1S MAR-BA. 1B ESBL ERAGE ASE, cee cympois SEQ 0145 
ABASE = 900000 547 
ACDW1 = 000000 547 
ACDW2 = 000000 547 
ACPUOP= 000000 547 «S62 
ADDT 003556 1083 = 1091s :1099s-1107—sad sa: 820 
ADDWO = 000000 547 
ADDW1 = 000000 547 
ADDW10= 000000 547 
ADDW11= 000000 547 
ADDW12= 000000 547 
ADDW13= 000000 547 
ADDW14= 000000 547 
ADDW15= 000000 547 
ADDW2 = 000000 547 
ADDWS = 000000 547 
ADDWS = 000000 547 
ADDWS = 000000 547 
ADDW6 = 000000 547 
ADDW? = 000000 547 
ADDWS = 000000 547 
ADDW9 = 000000 547 
ADEVCT= 000000 547 s«SS3 

VM = 000000 547 
AENV = 000000 547 
AENVM = 000000 547-559 
AFATAL= 000000 547 s«550 
ALLCTR 001056 5890 

1= 000000 547 

AMADR2 = 000000 547 
AMADR3= 000000 547 
AMADR4 = 000000 547 
AMAMS1= 000000 547 
AMAMS2= 000000 547 
AMAMS3= 000000 547 
AMAMS4= 000000 547 
AMSGAD= 000000 547s S55 
AMSGLG= 000000 547 s«S56 
AMSGTY= 000000 547 s«S a9 
AMTYP1= 000000 547 
AMT YP2= 600000 547 
AMTYP3= 000000 547 
AMTYP4= 000000 547 
APASS = 000000 547s $52 
APRIOR= 000000 547 
APTCSU= 000040 7276 = 76160 
APTENV= 000001 7269 «-7572—Ss«=7614@ = 7643 
APTSIZ= 000200 867 76130 
APTSPO= 000100 7271 +7574 «= 76158 
ASWREG= 000000 
ATESTN= 000000 “rt CS 

IT = 000000 547 «4554 
AUSUR = 002000 4660 547s 
AVECT1= 000000 547 
AVECT2= 000000 547 
BEVENT= 177546 4580 


BFA 603610 1077 1085 10953 1101 1110 1119 11380 


iM +c. 


GLOBAL AREAS —_MAC)1] 30a(]052) 15 ' ; 

KOUTA, MAL 15-MAR Ba 183 4Y to MAREROss REPPRERCPE TAAE -- USER SyMBOLs SEQ 9146 

BFAC1 0033 1078 

BFAC2 0033 086 10910 

BFAC3 003422 1094 =: 1099 

BFAC4 003446 110211070 

BSFACS 003474 1111 =: 11160 

BFAE 003650 1120, «1125 Ss«11480 

BFB 003646 1139s 1141 114311458 

BITO = 000001 2790 

BITOO = 000001 2698 279 

BITOL = 000002 2680 38= 278 

BITO2 = 000004 267@ 896277 

BITO3 = 000010 2660 8276 

BITO4 = 000020 265@ 8 275 

BITOS = 000040 2640 89274 

BITO6 = 000100 2630 4839 273 

BITO? = 000200 262@ 8 272 

BITO8 = 000400 261@ 271 

BITO9 = 001000 270 

BITL = 2780 

BIT1O = 259¢ 

BIT11 = 004000 2580 

BIT12 = 010000 257¢ 

BIT13 = 2560 

BIT14 = 040000 255¢ 

BITIS = 100000 2540 

BIT2 = 000004 2770 

BITS = 000010 2760 

BIT4 = 000020 275@ 

BITS = 000040 2740 

BIT6 = 000100 2730 

BIT? = 000200 2720 

BITS = 000400 2710 

BIT9 = 001000 2700 

T= 000001 1e@ 509 606 761 

BPTVEC= 000014 2860 

BTER 002650 934 936 938 9416 

BTEXP 001066 S96e@ 86 897 913 916 919 922 925 933 935 937 939 «1056 
1056¢ 1059 1060 1061¢ 1062 1065 1068 #+#$‘.1070 1072 1074 1127¢ 1128 11296 
1130e¢ 11326 1133 1134 1135+ £1138 1140 1142 1144 

BTGO 002450 902@ 1017 

BTRES 001076 597¢ 914¢ 917 9200 923¢ 933 935 937 939 953e 20 971% 
960 «696990 «= 1000) 10251027): 1029)si1031———si0S7?)2—s«1076e = «1084s «= «1092e «= «1100 ~=s__ 11098 
1116 1138 1140 1142 ~ #8 1164 

BITST 003150 954 43 972 981 991 1001 10256 

BITSTE 003176 1026 1028 1030 10320 

BT1 = 06666 883 

CACHET= 000001 seal 156 159 177 509 594 609 752 761 831 874071987285 
4 

CCR = 177746 452¢ 8326 875¢ 

CHECK7 005132 1474 1478 1486 1490 14960 

CHECIO 005366 1545 1549 1557 1561 15670 

CHEC26 010616 2321 2332 2343 2556 2567 23810 

CHEC27 011162 2441 2459 2477 890 

CHEC3O 011° 50 2549 7 2585 960 

CHEC32 012166 2701 «27120 2723s 27340 

CHEC33 612464 2788 3 =©2799 = 2810s B10 


i ce 
GLOBAL AREAS 


a OT =a OS2) 15-MAR-84 1 E 148 a? 

KDJL1A.MAC 15 -MAR .8 56S) CROSS Ree PPRENC ce TABLE -- USER SYMBOLS =e os 

CHEK? 005136 1497¢@ 1503 

CHK10 005404 1569 15744 

CHK 7 005150 1498 15030 

CH10 005372 1568¢ 1574 

CLRD = aeeeee VU 5809 

CLRI = eeeeee VU 5840 

CMPD = seeeee U 4039 

CMPRTIN 017730 4047 4056 4065 4073 40950 

COUNT 001040 581¢ 8l7e 8226 82350 2919 964 3004 3040 3070 3106 3144 3175 3194 
3211 3229 3263 3282 3313 3332 3357 3371 3403 3415 3431 3444 3476 
35le 3550 3575 3597 3619 3651 3670 3697 3711 3742 3760 3805 3843 
3868 3906 3938 3968 4006 4030 4122 4361 4560 4779 49867 5206 5217 
5506 5517 5622 5762 5824 6191 6369 6498 6797 7026 

CPEREG= |77766 4s5¢e 

CPUTST= QO00001 ile 166 509 603 756 877 72335 

CR = 000015 194¢@ 752 756 761 763 766 7233 7241 7332 7344 

CRLF = 000 195¢@ 7286 7344 

DATRAM= 000001 1¢@ 874 

DATVER 002146 2918 2963 3 3039 3069 3105 31435 3174 3193 3210 3228 3262 
3281 3312 3331 3356 3370 3402 3414 30 3443 3475 3511 3549 3574 
3596 3618 3650 9 96 3710 3741 3779 3804 3842 3867 3905 3937 
3967 4005 4029 $121 4559 4986 5505 5516 5621 5625 6190 6497 5796 

DATVFR 002130 815@ 4360 4778 5216 5761 6368 7025 

DATI 002160 818 823e 826 

DCOUNT 001054 588e 

DDISP = 177570 201¢ 585 848 

DISPLA 001050 585¢ 848 856 

DISPRE 000174 495¢ 856 

DIVD = seesee VU 4381 

DIVF = sesece 4133 

DSWR = 177570 584 847 

DVDSUB 022000 4389 4401 4415 B44 4435 4E4% 4457 4468 4480 45060 

DvVFSUB 021002 4141 4151 4160 4168 4177 4185 4193 4201 4209 4217 4225 4233 4241 

4258 4267 4276 4285 4307¢@ 

01 604236 1275¢ 1291 1296 

D2 004250 1278 1279¢@ 

D3 004252 1280¢ 1304 

04 004270 12880 1325 1331 

DS 004304 1289 12920 

D6 004314 1293 1295¢ 

D7 004320 1294 1297¢@ 

EMTVEC= 000030 289¢ 8336e 837e 

ERR 002126 7940 

ERRCNT 001044 5830 76236 

ERRFP 002124 793¢ 

ERRMSG 001766 G 752¢e 

ERRNUM= 000514 465¢ 785 7886 941 9450 9590 965 96890 974 977@ 983 9862 
993 1003 1 1079 1087 1 1095 1 1103 11062 £1112 
1115¢ 1121 11246 1175 1176¢ l211¢ 1228 i23ie 1236 1239¢ 1246 12492 
1254 12576 1284 12870 1314 1317@ 326 3300 1333 133728 1340 
13444 1364 13670 1371 1374¢e 1384¢e 404 1407¢@ 1412 1415¢@ 1421 1424 
1429 14320 1448 1452¢ 1499 1506 15106 1570 1573e 157? 1581¢ 1616 
16196 1623 16260 1652 655¢e 1661¢ 1685 1 1692 1695¢ 1699 17022 
1708 17120 1737 1740¢ 1745 1752 i 1761 1765¢e 1791 1794@ 1798 
18019 1805 18060 1815 18164 18230 1829 1833se 1858 186i2e 1865 1868=s 
1873 1876¢ 1880 18830 889 1919 1922¢ 1925 1928¢e 1932 19353 1940 





—— 


i i ~« 


GLOBAL AREAS MACY11 30AC1052) 15-MAR-84 16:58 PAGE 149 SEQ 0148 
KDJLLA.MAC 15-MAR-84 15:51 CROSS REFERENCE TABLE -- USER SYMBOLS 
19430 1947 19500 1956 1960@ 1985 19889 1993 19964 2001 20049 2008 20116 
2017 2021@ 2048 2051¢@ 2055 20586 2062 20654 2069 20726 076 20799 2085 
2089@ 82115 21180 2123 2126@ 2130 21334 2139 21430 2169 21720 2176 21796 
2185 2189@ 2216 22196 22260 2229 22320 2236 22399 2245 22499 2273 
22760 2281 22840 2289 22920 22999 231 23199 2377 23309 2338 234190 
2351 2354@ 2362 2365@ 2372 23750 2384 23870 2437 24408 2445 24489 2454 
24570 2463 24660 2472 24750 24840 2493 24960 2545 25489 2 25560 
2565¢ 2571 2574¢ 2580 25830 2589 25924 26034 2650 26530 2657 
26600 2667@ 2674 26780 5 27080 7 27190 2727 27300 2738 2741¢ 
2792 2795¢ 2803 2806¢ 2814 281790 2825 28284 2871 28744 2878 28819 
28870 ®@ 2912 2915@ 2922 29250 2945 29480 2951 29546 7 29609 
2966 29694 2992 3001¢ o 28 30319 3034 3037¢@ 3042 
3045¢ 3063 o 3072 3075¢@ 30 3097¢@ 31 31034 3108 3111¢ 3131 31349 
3139 31420 3146 31490 «3 31710 3177 3180@ 3189 31920 6. 3196 3199@ 3205 
32080 13 32160 24 32270 3231 32340 3257 32600 32680 3276 32790 
32870 3311¢ 3315 33180 3326 332990 3334 33370 3359 3362° 3373 
3376@ 3397 3400¢@ 0 @ 3417 34200 3435 34490 3470 347306 
3478 34810 3489 3492¢ 35010 505 35080 3514 3517¢ 3527 3530¢ 3536 
3539¢ 3543 3546¢ 3552 3555¢ 3569 35720 3577 3591 35946 3602¢ 
3613 36160 1 r 364860 3653 36 36679 3672 3699 
3702¢ 3713 3716¢@ 3736 37390 3744 37478 3757 3760¢ 3766 3769¢ 3773 3776¢ 
3782 3785¢@ 3799 o 38100 3820 38320 3836 38390 
38480 3865¢ 3870 3873¢ 3883 38860 3894 38970 39030 3908 3911¢ 
3932 3935¢ 3940 3943¢e 3953 39560 3962 39650 70 39730 3987¢@ 
4003¢ 4008 4011¢ 4027¢@ 40 40350 4112 4115¢@ 4127¢ 4323 43263 
4332 4335¢@ 4341 43440 4354 4357@ 4363 4 43770 4 4525¢@ 4531 
4534¢ 4540 45430 4553 4556¢e a 4565¢ 4573 4576¢@ 4741 47440 4750 4753¢ 
4759 4762@ 4772 4775@ 4781 4784e@ 4793 4 4949 49520 4958 49610 4967 
49708 4983e@ 4989 49920 i ® $167 Si70e 51376 Si79e@ 5185 5188¢ 
5199 5202¢ S211¢ 19 2e 5230 52330 5470e@ 5476 5485 
5488¢e 5502¢ 5511¢ 5519 5$522e@ 5530 5533¢ 5615 5618¢ 4 S627¢ 
5634¢ $726 5729¢ 5 $7 $744 5747¢@ 5755 5764 5767¢@ 5776 
5779@ 5799¢ 33 58360 5853 5859 & 
5883e 5889¢ ~ 5 $903e@ 5921 5$924@ 5927 5930e 5933 
5936¢ 5941 5944¢ 5964 5967¢ 5970 5973¢ 5976 5979¢ 5987e@ 6005 60082 
6011 6014@ 6017 6051¢@ 6054 6057¢@ 60639 
60718 6089 6092e 6101 6104e@ 6109 6112@ 6132 6135@ 6138 61412 
6144 6147¢@ 6152 6155¢ 6176 6179e 6183 61860 6193 6196¢@ 63652 637 
6374¢ €6383¢e 6491 94e 6500 6503e 6 6S12¢ 6761¢@ 6767 677 
6776 6779@ 6790 67930 6802@ 6811 6814e 6 69930 7002e@ «=? 
7011@ 7019 7022@ 7028 7031¢@ 7040 7169 7172@ 4867176 7179e ©7185 71882 
ERRTN = 000000 4630 
ERRVEC= 000004 2820 845 8466 857s 
ERR1 002046 761@ 7637 
ERRO 002062 763@ 7640 
EXPDAT 001034 5790 
FACU = see008 YJ 1040 
FINI 003742 1169 1180¢ 
FIN1IO 50 1565 1596¢ 
FIN1I1 005560 1630 16360 
FINL3 1706 17150 
FINI4 006160 1759 1768¢ 
FINIS 1827 18369 
FINI6 006572 1887 18960 
FINI? 007006 1954 19630 


~ & 


GLOBAL AREAS MACY 30A ) -MAR - 84 : PA P 
KDJLLA.MAC IS-MAR-B4 15:3) >) } MAR RG REP ENCE TABCE -- USER SYMBOLS SEQ 9149 
FIN2O0 007206 2015 20240 
FIN21 007430 2083 2092¢ 
FIN22 007616 2137 2146¢@ 
FIN2S 007754 2183 2191¢ 
FIN24 010156 22453 22520 
FING6 010720 2379 24150 
F IN27 011264 2487 25230 
FIN3O 011632 2594 2630¢ 
FIN31 011774 2672 2681¢ 
FIN32 012270 2732 2768¢@ 
FIN33 012566 2819 2855¢e 
FING 004444 1 13460 
FINS 004554 1378 1386¢ 
FING 004760 1437 1454¢e 
FIN? 005214 1494 1525¢ 
FLAG 001042 582¢e 40464 4055 40644 4116 41406 41506 41596 4167« 4176¢ 4° 846 419264 42004 
42084 4216¢ 4224¢ 4232¢ 42406 42496 42576 42666 4275¢ 42846 4321 4330 4367 
4388s 4400e 44126 44230 44346 44456 44566 44676 44796 4520 4529 4566 4587s 
4595¢ 4603 461le 46194 46276 4635¢ 46436 4651¢ 4659¢ 4667+¢ 4675¢ 4684+ 46934 
4702¢e 4739 4748 4785 48066 48617¢ 4626s 4839¢ 48506 4861¢ 48726 48836 4895 
49064 4947 4956 4993 50146 50236 5032¢ 50416 * s 5069¢ 50768« 5087+ 
5096e 5105 51148 5123¢ 5165 5174 5223 S247 S260e 5273¢ S286« 52996 5312 
53250 5338 535ile¢ * 5378e 5391 S5405¢ 5419% 5465 5474 5523 56466 5654 
e 5670e 5678a ® 57 733 5768 65246 6534¢ 65446 6554+ 65646 65746 
6585 6596e 6607« 6618 6629 66396 66496 e 6671¢ 6661¢ 66926 67026 67136 
67 6765 ¢ 6834e 68422 6850+ 6856 ¢ 6874¢ * 6890e¢ 6896« 
6906 6914e 69226 69306 693860 69464 6988 6997 7032 7055¢ 7063¢ 7071« 7079¢ 
FPPERR 002013 756¢@ 787 944 958 967 976 985 995 1005 1081 1089 1097 1105 
1114 1123 1177 1210 1230 1238 1248 1286 1308 1316 1329 1336 
1343 1366 1373 13863 1414 1423 1431 1451 1501 1 1572 1580 
1618 1654 1660 1687 1694 1701 1711 1739 1747 1754 1764 1793 
1800 1807 1815 18632 1 1867 1875 1882 1892 1921 1927 1934 
1942 1949 1959 1987 2010 2057 2064 2071 2078 
2117 2125 2132 21 2171 2178 2188 2218 2225 2231 2238 2248 
2275 2283 2291 2318 329 e 2353 a 2374 2386 2439 2447 
2474 7 2555 2573 2591 2652 
2659 2666 2677 2707 2718 2729 2740 2794 2816 2827 2873 2880 
2886 2908 2914 3 3036 
3065 3074 3102 3110 3133 3141 3148 3170 3179 319, 3198 
3207 3215 3226 3233 : 8 3310 3317 3361 
3375 3399 3407 3419 3435 3472 3491 3507 3516 3529 
3538 3545 3571 3579 i 3615 3647 3655 3666 3674 
3701 3715 3738 3746 3768 3775 3784 3801 3822 3831 3838 
3847 3872 3902 3910 4984 3942 3955 3972 3986 
4010 4034 4114 4126 325 4334 4343 4356 4365 4376 4524 
45335 4542 4555 4564 4575 4743 4752 4761 4774 4783 4795 4951 8960 
4969 4982 4991 5003 5169 5178 5187 $201 5210 2 S232 5469 5478 
5487 5501 5510 5521 55 5617 5626 5635 $728 5737 5746 $757 5766 
5778 5798 35 5655 5861 5902 5923 5929 
5935 5943 5966 $972 5978 986 6007 6015 6019 6027 6050 606- 
6070 6091 6097 6105 6111 6134 6140 61 6154 6178 6185 6195 6364 
6373 6 6493 6502 6511 6760 6769 6778 6792 6801 6813 6292 7001 
7010 7021 7030 7042 7171 7178 7187 
FPPIST= sseeeee 1 166 509 596 609 610 756 761 782 877 7233 
FPTS1L = eseeee 1152 


FPTS1O= sseeeee 1527 


/_ i ae 


vLOBAL AREAS MACY11 SO0A(J}O052) 15-MAR-84 16; PAGE 151 SEQ 9150 
KDJLIA.MAC iS-m R*ba 15:41 cROss REPERENCE TABLE -- USER SYMBOLS : 


FPTS11i= 
FPTSle= 
FPTS13= 
FPTS14= 
FPTS15= 
FPTS16= 
FPTS17= 
FPTS2 = 
FPTS20= 
FPTS21= 
FPTS22= 
FPTS23= 
FPTS24= 
FPTS25= 
FPTS26= 
FPTS27= 
FPTSS = 
FPTS30= 


22066 
2606206 
ee2660 
#6e660 
266666 
222086 
#6020266 
a2626006 
#20606 
eee026606 
22462206 
220606 
eeae ee 
aee6008 
#2206866 
eereoas 
eee sae 
@0220206 


FPTS3Sl= seeees 
FPTS32: eeaseae 
FPTS33= esecee 
FPTS4 = seeeeee 
FPTSS a2e2e0ee0 
FPTS6 e2aee0 
FPTS7 aaeeed 
FPVEC 000244 44986 3485 3521¢ 35616 37546 37896 36146 38526 3877s 43086 4507« 4726s 4934 
3150e¢ 5450e 5599¢ S7lile S87Se¢ 5916¢ 5959e 6000¢ 6043¢ 6084+ 6127 6168+ 6346¢ 
64752 6740e 6971¢ 7153¢ 


eccccceccccccccccccecccececce 


FSRCMO= seeeee U 2857 
GNS = eeeeee U 494 7553 7554 7555 7556 75587 
HITMIS= 177752 454@ 

HOP10 021244 4294 43800 

HOP 11 022242 4492 4579e 

HOP12 023304 4712 4798¢ 

HOP13 024336 4919 

HOP14 025436 5133 5238¢e 

HOP15 027136 5434 5536¢ 

HOP16 027456 5585 5637¢@ 

HOP17 030144 5695 5782¢e 

HOP18 #032464 6329 6 

HOP19 033106 6459 6515¢ 

HOP2O0 034532 6725 6817¢@ 

HOP21 035622 6955 7046@ 

HOP22 036274 7139 7192¢ 

HOP44 020056 4080 4129¢ 

HT = 000011 1928 7284 7342 

HYBRID= 000001 1¢ 471 604 874 7205 7221 7233 7246 7497 7560 
Itt 004544 1356 13806 

ILLOP1 004340 1270 13044 

ILLOP2 004434 1274 13406 

IOTVEC= 900020 287¢ 8716 8726 

KDPARO= 172360 43098 

KDPAR1= 172362 431¢ 

KDPAR2= 172364 4320 

KDPAR3= 172366 4330 


KDPAR4= 172370 4346 


we We 


Pt AS 


KDJLLA.MAC 


KDPARS= 
KOPARE6 = 


$ 


172572 
172374 


22686 
@22226 
#2264864 
2224206 
2222626 
222266 
&e2626 
&e2e26 
222644 


2446466 
aeerecee 
#26666 


034262 


002610 
002500 


Cc 


eccccccce 


cececccce 


PISL ITLL OVAL LOSe ) 
15 -MAR.84 15:51 


Lo MAR -34 


1162 


6408 
6220 
6298 


1164 


6545 
6682 


16:58 PAG 
CROSS REFERENCE 


6415 


6226 
6304 


761 
1166 


6422 


6232 
6310 


763 


11716 


6429 


6238 
6516 


76 


E 152 
TABLE -- USER SYMBOLS 


6436 


6244 
6322 


7258 


67392 


241 


6597 


6450 


7336 


64746 
6262 6265 6274 
7344 
6619 6630 6040 


SEQ 9151 


GLOBAL AREAS 


KDJ11A.MAC 
MACCA 00 
MAC1L 002514 
MAC2 002530 
MACS 002544 
MAC4 002560 
MACS 002574 
MBTE 00 
MBT1 002422 
MB TO 002430 
MBT2A 002442 
MBTS 002656 
MBTSA 002712 
MBTS8B 002740 
MBTS8C 002766 
MBT8D 003014 
MB TSE 
MBTSF 003074 
MBTSFG 003110 
MBTSI 003134 
MCLRD 030214 
MCLRI 030306 
017542 
MODSUB 026636 
MDF SUB 025126 
MDOIVD 021244 
MO IVF 
A 003206 
MFACU 003200 
MFSRCM 012566 
MLCD 032464 
MLCF 031626 
MLOC 017120 
MDC2 031506 
MLDDM2 012656 
MLDOMS 012764 
MLDDM4 013124 
MLDOMS 013250 
MLDDMG 013360 
013460 
MLDM27 013566 
MLDSUB 024074 
MLFSUB 023042 
MLS1 030356 
MLS2 030474 
MLS3 030612 
MLS4 030746 
MLSS 031066 
MLS6 031222 
MLS7 031346 
ML XP 033106 
MMODD 
MMODF 024336 


MACY LL S0A( 1052 ) 
5:51 


15-MAR - 84 
928 932 
1037¢@ 
1022 

947¢ 

952 955 
964 969¢ 
973 978¢ 
$82 9870 
992 9970 
1002 10078 
1012¢ 
10198 
3261 S274 
5449¢ 
5024 50335 
4818 4829 
4596 4604 
4703 47250 


16:58 PACE 1 
CROSS REFERENCE. TABLE -- 


960% 


4840 
4612 


53 


4851 
4626 


a a 


5313 
5061 


4462 
4628 


USER SYMBOi_S 


5326 


5070 


4675 
4636 


53359 
5079 


4644 


$35. 


4896 
4652 


5365 
5097 


4907 
4560 


5379 
5106 


49335¢ 
4668 


5392 
5115 


4676 


SEQ 9152 


5406 
5124 


4685 


GLOBAL AREAS 
KDJ11A.MAC 
MMULF 022242 
MMUTST= OO0001 
MMVEC = 000250 
MNGOP 015104 
MNNRM1L 013700 
MNNRM2 014164 
MNNRM3 014342 
MNNRM4 014510 
MNRM 016066 
MODD = aeeaeea 
MODF = aseeae 
MODGAR 54 
MSB 015720 
MSCD 034532 
MSCF 035622 
MSDF 027456 
MSER = 177744 
MSFD 027136 
MSFDI 030144 
MSG1 036402 
036456 
MSXP 035770 
MAD = se0e80 
MULF = aeeee0 
MUVAD 016212 
MXDF 1 014634 
MXVDEL= 000001 
NGOP = aeeeee 
NNRM1 = see000 
NNRMO = seasece 
NNRM3S = #e2222 
NNRM4 = se2000 
NRM = #20060 
PARRAM= 
PIRQ = 177772 
PIRQVE= 000240 
PRO = 000000 
PR1 = 000040 
PRO = 000100 
PR3 = 000140 
PR4 = 
PRS = 
PR6E = 000300 
PR7 = 340 
PS = 177776 
PSW = 177776 
PWRVEC= 000024 
QBUSEX= 000001 
RBUF = 177562 
RCSR = 177560 
RECDAT 001036 
RECDST 001126 
RECFEC 001106 


cc 


ce 


cccccc 


MACY11 30A(C 1052) 
15-MAR-84 15:51 


Soha Ae 
15-MAR-84 16:58 PAGE 154 


CROSS REFERENCE TABI E - USER SYMBOLS 


166 509 595 7Se2 756 761 
S236¢@ 5454 
72330 
7241 

197 

602 

2897 2934 2962 2978 301” 2054 
3351 3389 3466 3494 30. 3565 
3795 3825 3858 3888 3928 3 
5194 5494 5605 $715 S81" 6138 
2865 5772 6807 7036 


782 8.4 
3034 3120 
3587 3609 
3996 4020 
6347 6476 


877 


3159¢ 


3638 
4108 
6741 


7233 


7497 


SEQ 0153 


bn Le 


GLOBAL AREAS MACY11 30A(1052) 15-MAR-84 16:58 PAGE 155 SEQ 0154 
KDJL1LA.MAC 15-MAR-84 15:51 CROSS REFERENCE TABLE -- USER SYMBOLS 
RECST 001116 5990 5874 5884 5890 5915 5925 5931 5958 5974 5999 6009 6015 6042 
6058 
RESTAR 002410 874¢e@ 7230 
RESVEC= 000010 283¢ 
SAVSP1 001062 591¢ 7627 
SAVSP2 001064 592¢ 76284 
SB = #@@e000 U 3629 
ScD * Osssse ~ $827 6835 6843 6851 6859 6867 6875 6883 6891 6899 6907 6915 6923 
SCDSUB 035356 6 
6931 6939 6947 69700 7056 7064 7072 7080 
SCF = #0000 U 7048 
SOF = aeeeea U 5639 
SOFSUB 027712 5647 5655 5663 5671 5679 5687 57100 
SDOPARO= 172260 %,86¢ 
SOPAR1= 172262 S87e 
AR2= 172264 388? 

SOPARS= 172266 389¢ 
SOPAR4= 172270 390¢ 
SDPARS= 172272 391¢ 
SDOPAR6= 172274 392¢ 
SOPAR7= 172276 3932 

= 172220 364¢ 
SDPORI= 172222 365¢@ 
SOPOR2= 172224 3662 
SOPORS= 172226 3672 
SDPDOR4= 172230 
SDPDRS= 172232 369@ 
SDPDR6= 172234 370¢ 
SOPDR7= 172236 3712 
SFD = #ae000 U 5537 
SFDI = aeeee0 YU 5783 
SFDSUB 027336 5544 $552 5560 5568 5576 5598¢e 
SHMOO = 000001 i@ 536 7233 
SIPARO= 172240 3758 
SIPARI= 172242 3762 
SIPAR2= 172244 377@ 
SIPARS= 172246 378¢@ 
SIPAR4= 172250 379¢ 
SIPARS= 172252 
SIPARG= 172254 3819 ‘ 
SIPAR7= 172256 3820 s 
IPDRO= 172200 353¢ 
SIPDRi= 172202 354¢ 
SIPDR2= 172204 355¢ 
SIPDR3= 172206 356? 
SIPDR4= 172210 357¢ 
SIPDORS= 1722 
SIPDR6= 172214 359¢ 
SIPOR7= 172216 3608 
SKIPID 036306 7206 72084 
SLOCOO 001030 575¢ 
SLOCOIL 001032 576¢ 

= 177572 3020 
SR1 = 177574 3034 
SR2 = 177576 3044 
SRS = 172516 3054 


rida 


GLOBAL AREAS MACY11 30AC1052) 15-MAR-84 16:58 PAGE 156 SEQ 0155 
KDJ1L1A.MAC 15-MAR-84 15:51 CROSS REFERENCE TABLE -- USER SYMBOLS 
STACK = 001000 187¢ 834 

START 002200 492 498 831% 

STBOT = OO1 4700 

STKLMT= 177774 198¢ 

SUBT 003524 1064 1067 1069 1071 1073 11274 
SwWR 001046 584¢ 847+ 849 8554 8694 
SWREG 000176 496¢ 855 

SwO = 000001 251¢ 

SWOO = 000001 241¢ 251 

SWOlL = 000002 2404 250 

SWO2 = 239¢ 249 

SWO3 = 000010 238¢e 

SWOS4 = 237e@ 247 

SWOS = 000040 236¢ 246 

SWO6 = 000100 235¢ 245 

SWO7 = 234¢ 244 

SWO8 = 000400 233¢ 243 

SWO9 = 001000 2320 242 

SW1 = 000002 

SW10 = 002000 231¢ 

SW11 = 004000 

SWi2 = 010000 

SW13 = 020000 2280 

SW14 = 040000 227¢ 

SWi5 = 100000 226¢ 

Swe = 000004 249@ 

SwW3 = 000010 

SwW4 = 000020 247¢ 

SWS = 000040 246% 

Swé = 000100 245¢ 

SW7 = 24489 

Sw8 = 000400 243¢ 

SWS = 001000 242¢e 

SxP = #20080 U 7089 

SXPSUB 036154 7096 7103 7110 7117 7124 7131 7152¢ . 
TABI 001176 610@ 2898 2910 2916 3020 3038 3086 3104 3299 
TAB10 001326 652¢ 3390 3429 

TABLI 001336 65696 

TABIIA 001346 3401 

TABI? 001356 6629 

TAB13 001 6646 

TAB13B 001376 3412 

TAB14 001406 670¢ 3657 

TAB15 001416 6749 3423 

TAB16 001426 678¢@ 3437 3948 

TAB17 001436 682¢ 

TAB18 001446 6850 3330 

TAB] 001206 614¢@ 2936 2961 3055 3246 
TAB21 001456 6894 3462 3483 3520 3637 
TAB22) 001466 6919 3474 

TAB23 001476 693¢ 3519 

TAB24 001506 3510 3548 

TAB?]5 001516 697¢@ 3558 

TAB26 1526 6999 3557 3583 

TAB27 001536 7014 3573 3595 


Nie 


GLOBAL AREAS ¥11 30AC1052) 15-MAR-84 16:58 PAGE 157 

KDJIIA.MAC > 1S MAR Ba Se c8% CRoss REFERENCE TABLE -- USER SYMBOLS SEQ 0156 

T 001556 705@ 3604 

TAB29A 001566 7070 3617 

TABS ©: 001216 618@ 2979 2996 3002 

TAB30 001576 7100 3688 

TAB31 001606 712@ 3687 

TAB32 001616 714@ ©3703 

TAB33 001626 716@ 3704 

TAB34 001636 718@ 3695 

TABS =—s_—« 001226 622@ 3261 3280 

TAB40 001646 7200 3727 3728 #83751 #3752 

TAB41 001656 722@ 3791 3816 3853 3878 

TAB42 001666 724@ 3854 3879 

TAB43 001676 726@ 3904 

TAB4S5 001706 728@ 463924 «= «33930—i«i3947~=Sss3951Ss«3992 

TAB46 001716 730@ 3936 

TABS7 001726 732@ «63991 2=Ss 5815 

TABS7A 001736 7340 

TAB48 001746 736@ 4004 4016 

TAB49 001756 7380 

TABS 001236 626@ 3121 

TABSA 001246 6300 1 

TAB6 = =-_: 001256 634e 2980 3158 3245 3298 3649 3668 ###3740 #3778 +#$3:803 3866 3925 4015 
4028 4118 5822 

TAB6A 001266 638@ 6187 

TAB? 001276 6420 3349 3790 3815 

TABB 001306 6468 3350 3363 3364 

TABS 001316 650@ 3355 

TAGRAM= 000001 1@ 874 

TBITVE= 000014 2840 

TIMEOU 004424 1272 13330 

TKVEC = 000060 2919 

TPVEC = 000064 2920 

TRAPVE= 000034 290@ 838% i 839s 

TRPFLG 002122 792@ )«=6_1158* 8§661188% 1221 1267¢ 1354¢ 1394¢ 14626 1533¢ 1604¢ 16448 1673 1725s 
1776 1846« 19064 19718 20328 20996 21544 21996 22608 23084 2423 25318 2638 
2689% 2776« 

TRTIVEC= 000014 2850 

TSD31 011662 26430 2654 

TSFP1 003650 1152¢ 

TSFP10 005214 1527¢ 

TSFP11 005450 1598¢ 

TSFP12 005560 16380 

TSFP13 005634 1665¢ 

TSFP14 006004 17170 

TSFP15 006160 17708 

TSFP16 0064 18380 

TSFP17 006572 1898¢ 

TSFP2 003742 11820 

TSFP20 007006 1965¢ 

TSFP21 007206 

TSFP22 007430 20936 

TSFP23 007616 21480 

TSFP24 007 21930 

TSFP25 010156 22540 

TSFP26 010320 2302 


=a — *> 


GLOBAL AREAS MACY11 S30A(1052) 15-MAR-84 16:58 PAGE 158 SEQ 9157 
KDJLLA.MAC 15 -MAR-84 15:51 CROSS REFERENCE TABLE -- USER SYMBOLS 


TSFPS 004044 1215¢ 

TSFP30 011264 25250 

TSFP31 011632 263520 

TSFP32 011774 26850 

TSFP33 012270 27700 

TSFP4 004164 12610 

TSFPS 004444 13480 

TSFP6 004554 1388¢ 

TSFP? 004760 14560 

TSF10 §=—6. 005410 1537 1577¢ 

TSF13 005774 1672 1708¢ 

TSF14 006150 1724 1761¢ 

TSF1S 006370 1777 18290 

TSF 16 S62 1845 18890 

TSF17 006776 1905 19560 

TSF 2 004014 1190 1192 1194 1196 12010 

TSF20 §©6007176 1973 2017¢ 

TSF21 007420 2085e 

TSF22 007606 2101 21390 

TSF23 007744 2156 2185¢ 

TSF24 010146 2201 2245¢ 

TSF31 011764 2640 26748 

TSF6 004750 1399 14480 

TSF 7 0C3154 1466 1506¢@ 

TSTLOC 001136 6068@ 1417 1419 1472 1475 1484 1488 1545 1546 1555 1559 1611 1677 
1680 1683 1729 17 1735 1741 1782 1785¢ 1786 1789 1795 1796 1650 
1853 1856 1910 1915¢ 914 1917 1923 1977 1 1985 1989 2038 20416 
2042 i 2105 2106 2109¢ 2111 2160 21635 2166 2205 22084 
2209 2211 2220 22€ 2270 276 2427 2431 2434 2451 2457 

2469 3S 2539 56 59 2574 2577 2583 2693 

26972 2699 2708e 2710 2719¢ 2721 2780 2784e¢ 2786 2795¢ 2797 2606e 2808 
2934 2935 2936e 2937 3019 3020¢ 3032 3086¢ $872 3878 
$913 5919 5954 S955¢ 5956+ 5957 5956¢ 5962 5968 5997 5996+ 6005 6038 
6039 6040e 6041 60426 6061 e 6085 6087 6095 6099 6122 
61235¢ 6124¢ 6125 6126¢ 6150 6136 6142 

TST1 002422 8930 

TST1O0 §=—&.: 004554 13920 

TST100 031066 60360 

TST101 031222 60798 

TST102] 031346 61200 

TST103 031506 61630 

TST104 031626 

TST105 032464 63910 

TST106 033106 65210 

TST107 034532 

TST1L 004760 14606 

TST110 O 2 7052¢ 

TST111 035770 70930 

TST1i2 §=6=—©005214 15316 

TSTI3 §©=©005450 16020 

TST14 005560 16420 

TST1S 005634 166990 

TST16 006004 17210 

TST17 006160 17740 

TSTe2 00 10486 


—_ ££. 


: " 2) 43 .. 159. O15 
RDUTTA.ARE > s“HRAt Ag SPAcapse? 2 ARGROSs REPPRENCPE rAR?e .- USER symBoLs =e M158 
TST21 572 19020 
T8152 003008 19650 
TST23 007206 20300 
TST24 ©: 007430 20970 
TST25 007616 31520 
TST26 007754 2197¢ 
TST27 010156 22580 
TST3 003650 1156¢@ 
TST30 010320 23060 
TST31 010720 24210 
TST32 (011264 25290 
TST33. 011632 26360 
TST34. 011774 26870 
TST35 012270 27740 
TST36 012566 28610 
TST37 012656 28950 
TST@ = 003742 1186¢@ 
TST4O 6012764 29320 
TST41 013124 29760 
TST42 013250 30160 
TST43 013360 ® 
TST44 013460 30820 
TST45 013566 31180 
TST&6 013700 31560 
TST4? © -014164 32420 
TSTS 004044 1219¢ 
TSTSO 014342 
TST51 014510 33450 
TST52 014634 33840 
TST53 015104 34580 
TST5@ 015720 36330 
TST5S 016066 
TSTS6 016212 37230 
TST57 017120 39190 
TST6 ©-004164 1265¢ 
TST60 017542 40430 
TST61 41378 
TST62 © 021244 43850 
TST63 022242 45840 
TST64 023304 48030 
TSTES 024336 50110 
TST66 025436 52440 
1S167 027136 55410 
TST? 0048844 13520 
TST70 027456 56430 
TST71 030144 57870 
TST72 030214 58130 
TST73 030306 58440 
TST74 030356 58700 
TST75 030474 59119 
TST76 030612 59520 
1S177 030746 59950 
TS10D1 005420 1538 1550s: 15840 
TS1002 005430 1540 1547 15880 
TS1004 005440 1558 15920 


LL OBA: 


ARE AS 


KDJLLA.MAC 


010640 
010650 
010660 
010670 
010700 
010710 


MACY11 SOAC 1052) 
15-MAR-84 15:51 


15-MAR -84 


2346 


14390 
1443¢ 
1513¢ 
15170 


7220 
7642 


iJ 1 oO 
USER SYMBOLS 


16:58 PAGE 160 
CROSS REFERENCE TABLE - - 


2354 23910 
2365 23950 
23990 


7289 7411 7480 7553¢@ 7634 


7637 


7640 


SEQ 9159 


bn be wt 


— 


GLOBAi AREAS SEQ 9160 


ism Riga esse to MAR Boss RERERENCE® TABCE - 


KDJLIA.MAC USER SYMBOLS 
UIPARi= 177642 3320 

UIPAR2= 177644 3330 

VIPAR3= 177646 3340 

UIPAR4= 177550 335¢ 

UIPARS= 177652 336¢ 

VIPAR6= 177654 337¢@ 

VUIPAR7= 1477656 33380 

UIPORO= 177600 3090 

VIPOR1= 177602 3100 

UIPOR2= 177604 311¢ 

UIPORS« 177606 312¢e 

UIPDR4= 177610 313¢ 

UIPORS= 177612 314¢ 

UIPORG= 177614 315¢ 

UIPOR7= 177616 316¢@ 

UVAD = aeeeca U 3719 

WLOTRP 002106 783@ 3789 3852 

XBUF = 177566 462¢ 

XCSR = 177564 461¢@ 

XDOF Ll = saeee00 VU 380 

SAPTHD 000204 518 5240 

SASTAT= seeeee U 7594 7609 

SATYC 037624 7565 7567¢@ 

SATY1 037600 7563¢ 

SATY3 037606 7274 7564¢@ 

SATY4 037616 75662@ 7645 

$CHARC 037032 72914 7301¢ 7308 73346 7339¢ 
SCKSWR= seaeee U 7560 

SCMTAG= seeaeen U 834 840 842 

SCPUOP 001026 562e 

$CRLF 002077 7668 7290 7351 

sDBLK 037272 7377 7411 7419@ 

$SDEVCT 001010 553¢ 

$DOAGN 036372 7213 7222 72280 

SOTBL 037262 7380 7415¢ 

SENDAD 036362 505 72248 

SENDCT 036330 841 7215¢ 

SENMAL 036376 7220 7231¢ 

SENV 001020 558¢@ 7269 7572 7596 7645 
sENVM 001021 559¢ 867 7271 7276 7574 
sEOP 036274 7204@ 

SEOPCT 036322 841¢ 7212¢ 7216 

SERFLG 001052 8426 7621¢ 

SERROR 836 871 76214 7622 
SETABL 001020 557¢ 

SETEND 001030 530 569¢e 

SFATAL 001002 550¢ 7600¢ 

SFFLG 040044 7563¢ 75666 7594 76036 76119 
SFILLC 037050 7294 7348¢ 

SFILLS 037047 7347¢@ 

$GET42 036352 7221¢ 

SGTSWR= seseee U 7559 

$ = 000003 175 176 

SHIBTS 000204 52506 

$LF 037053 73519 

$LFLG 040043 76046 76104 


A “4 


GLOBAL AREAS MACY11 30A(1052) i5-MAR-84 16:58 PAGE 162 

KDJLIA.MAC 15-MAR-84 15:51 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0161 

sMATIL 001000 526 530 548% 859 7269 

$MBADR 000206 5260 

SMFLG 040042 75644 7570 76056 76090 

$MSGAD 001014 555¢ 75804 7583 

$MSGLG 001016 556¢ 7585- 

$SMSGTY 001000 549¢ 7578 75864 7598 76026 

SNULL 037046 7296 7346¢@ 

SNWTST= 000001 884e 886 10410 1043 11530 1183¢ 12164 126246 13494 13894 1457¢ 15259 1599¢ 
1639¢ 16660 1718¢@ 1771¢ 183990 18990 9664 20274 2094¢ 21499 21944 22554 23034 
24180 2526¢ 26330 26840 2771¢ 28580 2892¢ 29290 29730 30139 304990 30794 3115¢ 
3153¢ 3239¢ 32920 33420 338190 345590 36300 368090 37200 391690 40409 41349 4382¢ 
4581¢ 48000 5008¢ 5241¢ 55380 56400 57640 581094 58419 5867¢% 59084 59499 5992% 
6033¢ 6076¢@ 6117¢ 6160¢ 62024 638890 651890 68200 70499 70900 

sOCNT 037524 74526 74814 74940 

SOMODE 037526 74470 745le 7456 7459¢ 74706 74960 

$PASS 001006 552¢ 840¢ 8664 7205 72096 72106 7218 7251 

SPASTM 000212 528¢e 

SPATCH 040214 G 7651¢ 

SQUES 037052 7350¢@ 

SRDOCHR= aseesee U 7560 

SRDDEC= aeseecae U 7560 

SRDOLIN= seeee20e0 U 7560 

SRDOCT= sseeee U 7560 

SRTNAD 036374 7230¢ 

$ROA = aee0ee U 7560 

SSAVRE= aseesee UV 7560 

SSETUP= 000126 471¢ 835 836 838 840 842 845 7209 

$STUP = 177777 471¢@ 

$SVPC = 204 503¢ 

$SWR = 160000 175 176¢ 843 895 1050 1158 1168 1221 1267 1354 1394 1462 1533 
1604 1644 1671 1723 1776 B44 1904 1971 2032 20939 2154 2199 2260 
2308 2423 2531 2658 2689 2776 2863 2897 2934 2978 3018 3054 3084 
3120 3158 3244 3297 3347 3386 3460 3635 3685 3725 3921 4045 4139 
4387 4586 4805 5015 5246 5543 5789 5815 5846 5872 5913 5954 
5997 6038 6081 6122 6165 6207 6393 6523 7054 7095 7201 7209 
7223 7229 7231 

SSWREG 001022 869 

STESTN 001004 551¢ 8740 894e 1049¢ 1157s 11876 1220¢ 1266e 13553¢ 1393 1461¢ 1532 1603 
1643¢ 1670¢ 1722¢ 177Se 16436 19030 1970¢ 203i 2098 21536 2198¢ 2259e 2307s 
24226 30e 26376 2688e 2775¢ 2862 2896 293536 2977¢ 3017¢ 3053 3083 3119@ 
3157 32436 3346e 3$385¢ 34590 3634 e 3724e #3920e 40442 4138 4386 
458S5« 4804e SOl2e 5245+ 5542 * 5786e¢ 5814e S5845e S87le S912e 59532 5996s 
6037 6080 6121 61642 6206¢ 6392 65220 6824 7053 7094 

sTKB 037040 7315 7322 73430 

$STKS 037036 7313 7320 73420 

STN = 000112 175¢ 884 8 1041 1 1153 1158¢ 183 1188¢e 1216 1l221¢ 1262 12672 
1349 13540 1389 13949 1457 1462¢ 1528 15330 1599 16040 163¢ 16442 1666 
1671¢ 1718 1723¢ 1771 1776¢e 1839 18440 1899 190408 1966 19712 2027 2032+ 

® 2149 2154e@ 2194 2199@ 2255 260e@ 2303 2308@ 2418 24233 

25310 33 2638e 2771 27768 2858 2863¢e 2892 2897e 23929 29342 
2973 2978¢e 3013 30180 3049 3054 3079 G 3115 31200 3153 3158¢ 3239 
32449 2 32978 3342 3347¢ 3361 33860 3455 34600 3630 3635¢ 3680 36852 
3720 372590 3916 39210 4040 4045¢ 4134 41390 4382 4387¢@ 4581 45862 4800 
4805¢ 5008 501340 41 52460 5558 554306 5640 5$645¢e 5784 57892 5810 58152 
5841 584690 7 5872¢ 908 59130 5949 5954¢@ 5992 59972 6033 6038 6076 
60814 6117 61229 6160 61650 6202 62074 6388 6393¢e 6518 6s23¢ 6820 68252 


‘a Po — 


LLOBAL AREAS MACY11 30A( 1052) 15-MAR-84 i6: PAGE 5 0162 

KOJLLA.MAC 15-MAR 64° 15:51 CRoss ‘REFERENCE TASTE -- USER SYMBOL S SEQ 162 
7049 7054¢ 7090 7095 

$TPB 037044 73316 7345¢ 

$TPFLG 037051 7263 73490 

$TPS 037042 7329 73440 

$ TRAP 037530 838 7505¢ 

STRAPS 037552 7516¢ 7552 

$TRP = QOOO06 7545¢ 75540 7555¢ 75564 755740 75580 

$TRPAD 037564 7510 75520 

$TSTM 000210 5270 

STSTNU= 000001 464¢ 

STYPBN= aaeeaa 7558 

$TYPDS 037056 7365¢ 7557 

$TYPE 036502 7263¢ 7545 7553 7591 

$TYPEC 036714 7293 7300 7307 7312¢ 

$TYPEX 037034 7335 7337 73400 

$TYPOC 037326 74502 7554 

$TYPON 037342 7449 7452¢ 7556 

sTYPOS 037302 7445¢@ 7555 

SUNIT 001012 554¢e 

SUNITM 000214 529¢ 

SUSWR 001024 561¢ 

$XOFF = 9000023 7317 7344 

$XON = 000021 7324 7344 

$$SET4&= 000000 7223¢ 

SOFTILL 037525 7446e 74506 7460 7495¢ 

$40CAT 000000 489¢ 

. = 040234 4742 490 4940 503 504¢ 506¢ 5080 514 515¢ 517¢ 519¢ 531¢ 532s 
536¢ 5378 596¢ 5970 598¢ 5990 6000 7680 7231 7232¢ 7342 7343 
7344 7345 7346 7347 7348 7349 7350 7351 73520 7419¢@ 76129 76522 

SASTA= seaeece 7564 7567 

.$X = 000204 514@ 38519 531 536 


LLOBAL AREAS MACY11 3SOA(1052) 15-MAR-84 16:58 PAGE 165 SEQ 0163 
KOJLLA.MAC 15-MAR-84 15:51 CROSS REFERENCE TABLE -- MACRO NAMES 


BGNMOD 160¢@ 876 
BGNSUB 161° 
BGNTST 160¢ 895 1048 1156 1186 1219 1265 1352 1392 1460 1531 1602 1642 1669 1721 


DEF PRG 1¢ 
ENOCOM 294e 
160@ 7194 


ERROF 1602 785 941 956 965 974 983 993 1005 1079 1087 1095 1103 i112 1121 
1175 1 1228 1236 1254 1284 1306 1314 1326 1333 1340 1 1371 1380 
1404 1412 1421 1429 1448 1499 i 1570 1577 1616 1625 1652 1658 1685 1692 
1699 1708 1737 1745 1752 1761 1791 1798 1805 1613 1820 1829 1858 1865 1873 
1880 1889 1919 1925 1932 1940 1947 956 1985 3 2001 2017 2048 2055 

2069 2076 2115 2125 2130 2139 2169 2176 2185 2216 2223 2229 2236 
2245 2273 2281 2289 2 2316 2327 23 2351 2372 2437 2445 2454 
2463 2472 2481 2493 2545 2553 2562 2571 2650 2657 2674 
2705 2716 2727 2738 2792 2803 2814 2871 2878 2912 2945 

2957 2998 3034 3 3072 3094 3100 3108 3131 
3139 3146 3168 $177 3189 3196 3205 3213 3231 3257 3265 3276 3284 3308 
3315 3326 3334 3359 3373 3397 3417 3435 3470 3478 3498 3505 
3514 3527 3536 3543 3552 9 3577 3591 3615 3621 3645 3653 3664 3672 
3699 3713 3736 3744 3757 3766 3773 3782 3799 3807 3829 3845 
3870 3883 3894 3900 3908 32 3940 3 39 3984 4000 4008 4032 
4112 4124 4323 4332 4341 4354 4365 4374 4522 4531 4540 4553 4562 4573 4741 
4750 4759 4772 4781 4793 4949 4958 4967 4 5001 35167 5176 5185 5199 
5208 3219 S230 5476 5499 5508 5519 5530 5615 35624 3726 5735 
5744 S755 5764 5776 5826 3833 5886 5892 3900 S921 
Sc27 5933 5941 5970 5976 $964 6011 6017 6048 6054 6060 6068 
6089 6095 6101 6109 6132 6138 6144 6152 6176 6183 6195 6362 6371 6380 6491 
a ge 6767 6776 790 6799 6611 6 7019 7028 7040 7169 

ERROR 188¢ 785 942 956 965 974 983 993 1003 1079 1087 1095 1103 lllie Ll2l 
1175 1208 1228 1246 1254 1284 1306 1314 i327 1334 1341 1364 1371 1381 
1404 1412 1421 1429 14449 1499 1507 1570 1578 1616 1623 6352 1658 1685 1692 
1699 1709 1737 1745 1752 1762 1791 1796 18605 1615 1820 1830 1855 1865 1873 
1880 1890 1919 1932 1 1947 1957 19935 2001 2018 2048 2055 
2062 2069 2076 2115 2123 2130 2140 2169 2176 21 2216 2223 2229 2236 
2246 2273 2281 2289 2296 2316 2327 2338 2351 2372 2 2437 2445 
2463 2472 2481 2493 2545 53 2571 2650 2657 2675 
2705 2716 2727 2738 2792 3 2814 2625 2871 2878 2912 2922 2945 

2957 2992 3034 3042 3072 3094 3100 3208 S131 
3139 3146 3168 3177 3189 31 3215 32 $232 325 3265 3284 3308 
3315 3326 3334 3359 3373 3397 3417 3433 3446 3470 3478 3489 3498 3505 


GLOBAL AREAS MACY11 30A( 1052) A> ane 18; :58 PAGE 166 SEQ 9164 
KOJLLA.MAC 15-MAR-84 15:51 CROSS REFERENCE TABLE -- MACRO NAMES 


5208 5219 5230 5467 5476 85 5499 5508 5519 5530 5615 5624 5631 5726 5735 
5744 $755 5764 5776 5796 5802 5826 5833 5853 5859 5880 5886 5892 5900 5921 
$927 59335 5941 5964 5970 5976 59 6005 6011 6017 6025 6048 6060 6068 


T 2942 
NEWTST 159¢ 884 1041 1152 1182 1215 1261 1348 1388 1456 1527 1598 1638 1665 
1717 1770 1838 1898 1965 2093 2148 2193 2254 2302 2417 2632 2683 
2770 2858 2892 2929 2973 3013 3049 3079 3115 3153 3239 2 3342 3381 3455 
3630 3720 3916 4040 4134 4382 4581 4 5241 5538 5784 5810 


SETTRA 7520@ 7545 7554 7555 7556 7557 


SETUP 159¢ 294¢ 833 

SKIP 2942 

SLASH 2942 

SPACE 2948 

STARS 294¢ Sol Sil 313 i 1043 1047 1153 1155 1183 
1185 1216 1218 1262 1349 1351 1389 1391 1457 1459 1528 1530 1599 1601 
1639 1641 1666 1718 1720 1771 1773 1839 1841 1899 1901 1966 1968 2027 

2096 2149 2151 2194 2196 2257 23035 2305 2416 2420 2526 

2633 2635 2684 2771 2773 2892 2931 2973 2975 3013 
3015 3049 3051 1 3115 3117 3153 3155 3239 3241 3342 3344 
3381 3383 3455 3457 3630 3682 37 3722 3916 3916 4040 4042 4134 
4136 4382 4384 4581 4585 . 5008 5010 5241 55 5540 
5784 5786 5810 5812 35841 5867 $869 5910 5949 5951 $992 5994 6033 
6035 6076 6078 6117 6119 6160 6162 6202 6388 6 6518 6520 6820 6822 
7049 7051 7090 7092 7196 7355 7422 7499 7617 
2948 8434 

TAIL 1 7195 


GLOBAL AREAS MACY11 30A( 1052) 
KDJ11A.MAC 15-MAR-84 15:51 
$ SNEWT 2949 884 1041 
1771 1839 1899 
2858 2892 2929 
3680 3720 3916 
5867 5908 5949 
$$SET 7526@ 7545 7554 
$$SETM 859¢ 866 
$$SKIP 2940 
- EQUAT 159¢ 184 
HE ADE 161¢ 166 
KT11 159¢ 294 
. SETUP 161¢ 471 
. $ACT1 161° 499 
sAPTB 159¢@ 544 
SAPTH 161? S09 
. SAPTY 162@ #7560 
. SEOP 159@ 7196 
SERRO 162¢ 
. $READ 162¢ 
$ TRAP 1612 7497 
. $TYPD 160@ 7353 
$TYPE 1602 7246 
. $TYPO 1622 7420 
$40CA 159¢ 472 
- ABS. 040234 000 
ERRORS DETECTED: 0 


CZKDLB/EN: ABS. CZKDLB.SEQ/CRF /DOC/SOL /NL : 


RUN-TIME: 249 141 10 SECONDS 


RUN-TIME RATIO 
CORE USED: 52K 


DOCUMENT PAGES: 


: 5397400=1.3 


€103 PAGES) 


165 


1S-MAR-84 16:58 

CROSS REFE 
1153 1183 1216 
1966 2027 2094 
2973 3013 5049 
4040 4134 4382 
$992 6035 6076 
7555 7556 7557 


a 


PAGE 167 
RENCE TABLE -- MACRO NAMES 


TOC=SYSMAC . SML/ML .CZKDLB ..MAC/ML ,KDJLLA.MAC 


1639 
2633 
3381 
5784 
7049 


SEQ 0165 


